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EXECUTIVE  SUMMARY 


This  Validation  Summary  Report  summarizes  the  results  and 
conclusions  of  validation  testing  performed  on  the  VAX  Ada 
VI. 3  using  Version  1.8  of  the  *Ada  Compiler  Validation 
Capability  (ACVC) . 

The  validation  process  includes  submitting  a  suite  of 
standardized  tests  (the  ACVC)  as  inputs  to  an  Ada  compiler  and 
evaluating  the  results.  The  purpose  is  to  ensure  conformance 
of  the  computer  to  ANSI/MIL-STD-1815A  Ada  by  testing  that  it 
properly  implements  legal  language  constructs  and  that  it 
identifies  and  rejects  illegal  language  constructs.  The 
testing  also  identifies  behavior  that  is  implementation 
dependent  but  permitted  by  ANSI/MI L-STD-1815A.  six  classes  of 
tests  are  used.  These  tests  are  designed  to  perform  checks  at 
compile  time,  at  link  time,  or  during  execution. 

On-site  testing  was  performed  3  Nov  1986  through  7  Nov  1986 
at  Nashua,  NH  under  the  auspices  of  the  Federal  Software 
Management  Support  Center,  according  to  Ada  Validation 
Organization  policies  and  procedures.  The  VAX  Ada  VI. 3  is 
hosted  on  the  VAX  series  operating  under  VAX/VMS  V4.4  and  the 
MioroVMS,  V4.4. 


The  results  of  validation  are  summarized  ir<  Lhe  following 
table: 


RESULT 

_  JL 

TEST  CLASS 

B  C  _D_ 

L 

TOTAL 

Passed 

69 

865  1329 

17 

13 

46 

2339 

Failed 

0 

0  0 

0 

0 

0 

0 

Inapplicable 

0 

2  39 

0 

0 

0 

41 

Withdrawn 

0 

7  12 

0 

0 

0 

19 

TOTAL 

69 

874  1380 

17 

13 

46 

2399 

*Ada  is  a  registered  trademark  of  the  United  States  Government 
(Ada  Joint  Program  Office) . 
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VAX  8800 


VAX-11/780 


under 

VAX/VMS 

VAX  8800 


and 


under 

VAX/VMS 

VAXstation  II 
under 
MicroVMS 


ADd 


VAX-11/750 
VAX-11/785 
VAX  8200 
VAX  8700 
VAX  8800 
VAX-ll/730 
VAX-11// 80 
VAX-11/782 
VAX  8300 
VAX  8500 
VAX  8600 
VAX  8650 

under 

VAX/VMS 


MioroVAX  II 
unde/: 

MicroVMS  and  VAXELN 

VAXstation  II  under 
MicroVMS 

VAX-1 1/780  under  VAX/VMS 
MicroVAX  II  under  VAXELN 


Testing  Completed  on  7  Nov  1986  Using  ACVC  1.8. 


EXECUTIVE  SUMMARY 


This  Validation  Summary  Report  summarizes  the  results  qnd 
conclusions  of  validation  testing  performed  on  the  VAX  Ada 
VI. 3  using  Version  1.8  of  the  *Ada  Compiler  Validation 
Capability  (ACVC) . 

The  validation  process  includes  submitting  a  suite  of 
standardized  tests  (the  ACVC)  as  inputs  to  an  Ada  compiler  and 
evaluating  the  results.  The  purpose  is  to  ensure  conformance 
of  the  computer  to  ANSI/MIL-STD-1815A  Ada  by  testing  that  it 
properly  implements  legal  language  constructs  and  that  it 
identifies  and  rejects  illegal  language  constructs.  The 
testing  ai^o  identifies  behavior  that  is  implemexvtation 
dependent  but  permitted  by  ANSI/MIL-STD-1815A.  Six  classes  of 
tests  are  used.  These  tests  are  designed  to  perform  checks  at 
compile  time,  at  link  time,  or  during  execution. 

On-site  testing  was  performed  3  Nov  1986  through  7  Nov  1986 
at  Nashua,  NH  under  the  auspices  of  the  Federal  Software 
Management  Support  Center,  according  to  Ada  Validation 
Organization  policies  and  procedures.  The  VAX  Ada  VI. 3  is 
hosted  on  the  VAX  series  operating  under  VAX/VMS  V4.4  and  the 
Mi-  r-  VMS,  V4.4. 


The  revolt*  of  validation  are  summarized  t*.  the  following 
table : 


RESULT 

TEST  CLASS 

_L_ 

TOTAL 

Passed 

69 

865 

1329 

17 

13 

46 

2339 

Failed 

0 

0 

0 

0 

0 

0 

0 

Inapplicable 

0 

2 

39 

0 

0 

0 

41 

Withdrawn 

0 

7 

12 

0 

0 

0 

19 

TOTAL 

69 

874 

1380 

17 

13 

46 

2399 

*Ada  is  a  registered  trademark  of  the  United  States  Government 
(Ada  Joint  Program  Office) . 


There  were  19  withdrawn  tests  in  ACVC  Version  1.8  at  the  time 
of  this  validation  attempt.  A  list  of  these  test  appears  in 
Appendix  D. 

So.*  cests  demonstrate  that  some  language  features  are 'or  are 
not  supported  by  an  implementation.  For  this  implementation, 
the  test  determined  the  following. 

.  SHORT_INTEGER  is  supported. 

.  LONG_INTEGER  is  not  supported. 

.  SHORT.FLOAT  is  not  supported. 

.  LONGJFLOAT  is  supported. 

.  The  additional  predefined  types,  LONG_LONG_FLOAT 
and  SHORT_SHORT_INTEGER  are  supported. 

.  Representation  specifications  for  noncontiguous 
enumeration  representations  are  supported. 

.  The  'SIZE  clause  is  supported. 

.  The  ' stokagE_SIZE  clause  is  supported. 

The  'SMALL  ci  xur-c  is  supported. 

.  Generic  nr.it  specifications  and  bodies  can  be  compiled 
in  separate  compilations. 

.  Pragma  INLINE  is  supported  for  procedures.  Pragma 
INLINE  is  supported  for  functions. 

.  The  package  SYSTEM  is  used  by  package  TEXT_IO. 

.  Mode  INJFILE  is  supported  for  sequential  I/O. 

.  Mode  OUT_FILE  is  supported  for  sequential  I/O. 

.  Instantiation  of  the  package  SEQUENTIAL_IO  with 
unconstrained  array  types  is  supported. 

.  Instantiation  of  the  package  SEQUENTIAL_IO  with 
unconstrained  record  types  with  discriminants  is 
supported. 


.  Dynamic  creation  and  resetting  of  files  is  supported 
■  for  sequential  I/O. 

.  RESET  and  DELETE  are  supported  for  sequential  and 
direct  I/O. 

Modes  IN_FILE ,  INO’JT_FILE,  and  OUT_FILE  are 
supported  for  direct  I/O. 

.  Dynamic  creation  and  resetting  of  files  is  supported 
for  direct  I/O. 

.  Instantiation  of  package  DIRECT_IO  with  unconstrained 
array  types  and  unconstrained  types  with  discriminants 
is  not  supported. 

.  Dynamic  creation  and  deletion  of  files  are  supported. 

.  More  than  one  internal  file  ,an  be  associated  with  the 
same  external  file  only  for  reading. 

.  An  external  file  associated  with  more  than  one  internal 
file  can  be  reset. 

.  Illegal  file  names  unnot  exist. 

AC  Vo  -7e>-sion  1.8  was  .  on-site  via  magnetic  tape  to 
Wushu a  NH.  All  tests,  nv-npt  the  withdrawn  tests  and  any 
exeo  i -...'ole  tests  that  make  use  of  a  floating  point  precision 
greater  than  SY3TEM.MAX_L>Iv*ITS,  were  compiled  on  a  VAX  8800  and 
a  VAXstation  II.  Class  A,  C,  D,  and  E  tests  were  executed  on  a 
VAX-11/750,  785,  8200,  8700,  8800,  MicroVAX  II,  and  a 
VAXstation  II. 

On  completion  of  testing,  execution  results  for  Class  A,  C,  D, 
or  E  tests  were  examined.  Compilation  results  for  Class  B  were 
analyzed  for  correct  diagnosis  of  syntax  and  semantic  errors. 
Compilation  and  link  editing  results  of  Class  L  tests  were 
analyzed  for  correct  detection  or  errors. 

The  Federal  Software  Management  Support  Center  identified  2362 
of  the  2399  tests  in  Version  1.8  of  the  ACVC  as  potentially 
applicable  to  the  validation  of  VAX  Ada  VI. 3.  Excluded  were 
18  tests  with  source  lines  that  were  too  long;  and  the  19 
withdrawn  tests.  After  the  2362  tests  were  processed,  23 
tests  were  determined  to  be  inapplicable.  The  remaining  2339 
tests  were  passed  by  the  compiler. 

The  Federal  Software  Management  Support  Center  concludes  that 
these  results  demonstrate  acceptable  conformance  to 
ANSI/MIL-STD-1815A. 
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CHAPTER  1 


INTRODUCTION 

y 

This  Validation  Summary  Report  describes  the  extent  to  which  a 
specific  Ada  compiler  conforms  to  ANSI/MIL-STD-1815A.  This 
report  explains  all  technical  terms  used  within  it  and 
thoroughly  reports  the  results  of  testing  this  compiler  using 
the  Ada  Compiler  Validation  Capability  (ACVC) .  An  Ada  compiler 
must  be  implemented  according  to  the  Ada  Standard 
(ANSI/MIL-STD-1815A) .  Any  implementation-dependent  features 
must,  conform  to  the  requirements  of  the  Ada  Standard,  The 
entire  Ada  Standard  must  be  Implemented,  and  nothing  can  be 
implemented  that  is  not  in  the  Standard. 

Even  though  all  validated  Ada  compilers  conform  to 
ANSI/MIL-STD-1815A,  it  must  be  understood  that  some  differences 
do  exist  between  implementations.  The  Ada  Standard  permits 
seme  implementation  dependencies — ^or  example,  the  maximum 
length  of  identifiers  or  the  maximum  values  of  integer  types, 
other  differences  between  compilers  result  from  limitations 
imposed  on  a  compiler  by  the  operating  systems  and  by  the 
hardware.  All  of  the  dependencies  demonstrated  during  the 
pro-  of  testing  this  compiler  a**.?  given  in  the  report.  - 

Validation  Summary  Reports  are  written  according  to  a 
standardized  format.  The  report  for  several  different 
jmpilers  may,  therefore ,  be  easily  compared.  The  information 
,i  this  rep or !  is  derived  from  the  test  results  produced  during 
va  i  I.dation  testing.  Additional  testing  information  is  given  i.n 
section  3.7  and  states  problems  and  details  which  are  unique 
for  a  specific  compiler.  The  format  of  a  validation  report 
limits  variance  between  reports,  enhances  readability  of  the 
report,  and  minimizes  the  delay  between  the  completion  of 
validation  testing  and  the  publication  of  the  report. 


1.1  PURPOSE  OF  THIS  VALIDATION  SUMMARY  REPORT 

The  Validation  Summary  Report  documents  the  results  of  the 
validation  testing  performed  on  an  Ada  compiler.  Testing  was 
carried  out  for  the  following  purposes: 
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.  To  attempt  to  identify  any  language  constructs 

supported  by  the  compiler  that  do  not  conform  to  the 
Ada  Standard 

.  To  attempt  to  identify  any  unsupported  language 
constructs  -required  by  the  Ada  Standard 

.  To  determine  that  the  implementation-dependent  behavior 
is  allowed  by  the  Ada  Standard 

'estj-ny  of  wic  compiler  was  conducted  under  the  supervision  of 
the  Federal  Software  Management  Support  Center  according  to 
policies  and  pro  ?dures  established  by  tuu  Ada  Validation 
Organisation  (AVO) .  Testing  was  conducted  from  3  Nov  1986 
f-»  7  Nov  1986  at  Nashua,  NH. 

1.2  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  country, 
the  Ada  Validation  organization  may  make  full  and  free  public 
disclosure  of  this  report.  In  the  United  States,  this  is 
provided  in  *<!c«.r.*’-mce  with  the  “Freedom  of  Information  Act  *  (5 
U.S.C.  #5*2)  .  >he  results  of  this  validation  apply  only  to  the 
computers,  op.-,  ting  systems,  and  compiler  versions  identified 
i  i  .'sport. 

•.u*  organizations  represented  on  the  signature  page  of  tnis 
'•port  do  not  represent  ox  warrant  that  all  statements  set 
forth  in  this  report  are  accurate  and  complete,  or  that  the 
subject  compiler  has  no  nonconformances  to  ANSI/MIL-STD-1815A 
other  than  those  presented.  Copies  of  this  report  are 
available  to  the  public  from: 

Ada  Information  Clearinghouse 
Ada  Joint  Program  Office 
OUSDRE 

The  Pentagon,  Rrn  3D-139 
1211  S.  Fern,  C-107 
Washington,  DC  20301-3081 

or  from  the  Ada  Validation  Facility  (AVF)  listed  below. 

Questions  regarding  this  report  or  the  validation  tests  should 
be  directed  to: 


Ada  Validation  Organization 
Institute  for  Defense  Analyses 
1801  North  Beauregard 
Alexandria  VA  22311 


or  to: 


Ada  Validation  Facility 

Federal  Software  Management  Support  Center 
5203  Leesburg  Pike 
Suite  1100 

Falls  Church,  VA  22041-3467 
1.3  RELATED  DOCUMENTS 

1.  Reference  Manual  for  the  Ada  Programming 
Language .  ANSI/MIL-STD-1815A,  FEB  1983. 

2.  Ada  Validation  Organization:  Policies  and 
Procedures .  MITRE  Corporation,  JUN  1982,  PB 
83  -110601. 

3 .  Ada  Compiler  Validation  Capability  . 
Implemented'  Guide.  SofTech,  Inc.,  DEC  1984. 


1.4  DEFINITION  OF  TERMS 


v 


<\.M 


Ada  S '  :«idard 

Applicant 

AVF 


AVO 


Compiler 


Failed  test 


The  Ada  Compiler  Validation  Capability.  A  set 
of  programs  that  evaluates  the  conformance  of  a 
compiler  the  Ada  language  specification, 
ANSI/MIL— STD-18 15A. 

AN; 5  i/m (,  -,iT li  -1815A,  -ebruary  1983 . 

The  agency  requesting  validation. 

Ada  Validation  Facility.  The  Federal  Software 
Management  Support  Center.  In  the  context  of 
this  report,  the  AVF  is  responsible  for 
conducting  compiler  validations  according  to 
established  policies  and  procedures. 

The  Ada  Validation  Organization.  In  the 
content  of  this  report,  the  AVO  is  responsible 
for  setting  policies  and  procedures  for 
compiler  validations. 

A  processor  for  the  Ada  language.  In  the 
context  of  this  report,  a  compiler  is  any 
language  processor,  including  cross-compilers, 
translators,  and  interpreters. 

A  test  for  which  the  compiler  generates  a 
result  that  demonstrates  nonconformance  to  the 
Ada  Standard. 


Host 


The  computer  on  which  the  compiler  resides. 
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Inapplicable  A  test  that  features  or  Lhe  language  that 

a  test  compiler  is  not  required  to  support  or 
may  legitimately  support  in  a  way  other  than 
the  one  expected  by  the  test, 

t 

Passed  test  A  test  for  which  a  compiler  generates  the 

expected  result . 

Target  The  computer  for  which  a  compiler  generates 

code. 

Test  A  program  that  evaluates  the  conformance  of  a 

compiler  to  a  language  specification.  In  the 
context  of  this  report,  the  term  is  used  to 
designate  a  single  ACVC  test  The  text  of  a 
program  may  be  the  text  of  one  or  more 
compilations 

Withdrawn  A  test  which  has  been  found  to  be  inaccurate  in 

test  checking  conformance  to  the  Ada  language 

specification.  A  withdrawn  test  has  an  invalid 
test  objective,  f-'iis  to  meet  its  test 
objective,  or  contains  illegal  or  erroneous  use 
of  the  language. 

1.5  ACVC  TiiST  CLASSES 

■oiik'ui.'uutnce  to  ANSI/MIL- STD-lSltiA  id  w^asu/.ed  using  the  Ada 
dompiKu  Validation  Capability  (ACVC)  .  The  ACVC  contains  both 
legal  and  illegal  Ada  program  structured  into  six  test  classes: 
A,  B,  C,  D,  E,  and  L.  The  first  letter  of  a  test  name 
identifies  the  class  to  which  it  belongs.  Legal  programs  are 
compiled,  linked,  and  executed  while  illegal  programs  are  only 
compiled.  Special  program  units  are  used  to  report  the  results 
of  the  legal  programs. 

Class  A  tests  check  that  legal  Ada  programs  can  be  successfully 
compiled  and  executed.  (However,  no  checks  are  performed 
during  execution  to  see  if  the  test  objective  has  been  met.) 

For  example,  a  Class  A  test  checks  that  reserved  words  of 
another  language  (other  than  those  already  reserved  in  the  Ada 
language)  are  not  treated  as  reserved  words  by  an  Ada 
compiler.  A  Class  A  test  is  passed  if  no  errors  are  detected 
at  compile  time  and  the  program  executes  to  produce  a  message 
indicating  that  it  has  passed. 
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Class  B  tests  check  that  a  compiler  detects  illegal  language 
usage.  Class  B  tests  are  not  executable.  Each  test  in  this 
class  is  compiled  and  the  resulting  compilation  listing  is 
•  <.ftined  to  verify  that  every  syntactical  or  semantic  error  in 
th«  tout  is  detected.  A  Class  B  test  is  passed  if  every 

l  construct  that  it  contains  is  detected  by  the  compiler. 

j^ass  C  tests  check  that  legal  Ada  programs  can  be  correctly 
compiled  and  executed.  Each  Class  C  test  is  sel f -checking  and 
produce  a  PASSED,  FAILED,  or  NON  'APPLICABLE  message  indicating 
the  result  It  is  executed. 

Class  D  tests  check  the  compilation  and  execution  capacities  of 
a  compiler.  Since  there  are  no  requirements  placed  on  a 
compiler  by  the  Ada  Standard  for  some  parameters  (e.g.,  the 
number  of  identifiers  permitted  in  a  compilation,  the  number  of 
units  in  a  library,  and  thu  number  of  nested  loops  in  a 
subprogram  body) ,  a  compiler  may  refuse  to  compile  a  Class  D 
test  and  still  be  a  conforming  compiler.  Therefore,  if  a  Class 
D  test  fails  to  compile  because  the  capacity  of  the  compiler  is 
exceeded,  the  test  is  classified  as  inapplicable.  If  a  Class  D 
test  oompile&  successfully,  it  is  self-checking  and  produces  a 
MASSED  or  FAILED  message  during  execution. 

Each  class  E  test  is  self-checking  and  produces  a 
NOT- APPLICABLE,  PASSED  or  FAILED  message  when  it  U  spiled 
and  'xecuted  However,  the  Ada  standard  permits  <n 
r  i  omenLatiou  tv  rej  ?•  t  programs  containing  some  features 
addressed  by  Class  E  tests  during  compilation.  Therefore,  u 
Class  E  test  is  passed  by  a  compiler  if  it  is  compiled 
successfully  and  executes  to  produce  a  PASSED  message,  or  it  is 
rejected  by  the  compiler  for  an  allowable  reason. 

Class  L  tests  check  that  incomplete  or  illegal  Ada  programs 
involving  multiple,  separately  compiled  units  are  detected  and 
not  allowed  to  execute.  Class  L  tests  are  compiled  separately 
and  execution  is  attempted.  A  Class  L  test  passes  if  it  is 
rejected  at  link  time— that  is,  an  attempt  to  execute  the  main 
program  must  generate  an  error  message  before  any  declarations 
in  the  main  program  or  any  units  referenced  by  the  main  program 
are  elaborated. 

Two  library  units,  the  package  REPORT  and  the  procedure  CHECK. 
FILE,  support  the  self-checking  features  of  the  executable 
tests.  The  package  REPORT  provides  the  mechanism  by  which 
executable  tests  report  results.  It  also  provides  a  set  of 
identity  functions  used  to  detect  some  compiler  optimisation 
strategies  and  force  computations  to  be  made  by  the  target 
computer  instead  of  by  the  compiler  on  the  host  computer.  The 
procedure  CHECK.FILE  is  used  to  check  the  contents  of  text 
files  written  by  some  of  the  Class  C  tests  for  Chapter  14  of 
the  Ada  Standard. 
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rhe  operation  of  these  units  is  checked  by  a  set  of  executable 
test.  These  tests  produce  messages  that  are  examined  to  verify 
that  the  units  are  operating  correctly.  If  these  units  are  not 
operating  correctly,  then  the  validation  is  not  attempted. 

f 

Some  of  the  conventions  followed  in  the  ACVC  are  intended  to 
ensure  that  the  tests  are  reasonably  portable  without 
modification.  For  example,  the  tests  make  use  of  only  the 
basic  set  of  55  characters,  contain  lines  with  a  maximum  length 
of  72  characters,  use  small  numeric  values,  and  place  features 
that  may  not  be  supported  by  all  implementations  in  separate 
tests.  However,  some  tests  contain  values  that  require  the 
best  to  be  customized  according  to  implements Lion-specific 
values.  The  values  used  for  this  validation  are  listed  in 
Appendix  C. 

A  compiler  must  correctly  process  each  of  the  tests  in  the 
suite  and  demonstrate  conformance  to  the  Ada  Standard  by  either 
meeting  the  pass  criteria  given  for  the  test  or  by  showing  that 
the  test  is  inapplicable  to  the  implementation.  Any  test  that 
was  determined  to  contain  an  illegal  language  construct  or  an 
erroneous  language  construct  is  withdrawn  from  the  ACVC  and 
therefore,  is  not  used  in  testing  a  compiler.  The 
nru..'.'n formant  tests  are  given  In  Appendix  D. 


CHAPTER  2 


CONFIGURATION  INFORMATION 
CONFIGURATION  TESTED 

r 

The  candidate  compilation  system  for  this  validation  was 
tested  under  the  following  configuration: 

Compiler:  VAX  Ada  VI. 3 

Test  Suite:  Ada  Compiler  Validation  Capability,  Version 

1.8 


Host  Computer: 

Machine (s) : 

Operating  Systems: 

Memory  Size: 
Target  Computer: 
Machines)  : 


VAX-11/780 ,  VAX  8800  and 
VAXstation  II 

VAX/VMS  V4.4 
MicroVMS  V4.4 

12,  32,  and  8  MB 


VAX-11/730,  750,  780,  782, 
VAX-11/705,  E20U,  8300,  8500, 
VAX  8600,  8650,  8/00,  *000, 
MicroVAX  II,  VAXstation  II 


Operating  System 


Memory  Size: 


VAX/VMS  V4.4 
MicroVMS  V4.4 
VAXELN  V2.2 

4  -  32MB 


Communications  Network 


CONFIGURATION  INFORMATION 


VAX  Ada  VI. 3 

Ada  Compiler  Validation  Capability,  Version 

7  Nov  1986 


2.2  CERTIFICATE  INFORMATION 

Base  Configuration: 

Compiler: 

Test  Suite 

1.8 

Completion  Date: 

Host  Computer: 

Machine (s) ; 

Operating  System 
Machine (s) : 
Operating  System 
Target  Computer: 

Ma'  h  ;  <i«(s) : 

Operating  System 
Machine (s) : 
Operating  System 
Machine (s) : 
Operating  System 


VAX-11/730,  750,  780,  782,  785 
8200,  8300,  8500,  8600,  8650, 
3700,  and  8800 
VAX/VMS,  V4.4 

MicroVAX  II,  VAXstation  II 
Micrr>VMS,  V4.4 


VAX-11/730,  750,  780,  78?. 
785,  8200,  8300,  8500,  8600, 
8650,  "700,  8800 
VAX/VMS,  V4.4 

MicroVAX  II,  VAXstation  II 
MicroVMS ,  V4.4 
MicroVAX  II 

VAXELN  Toolkit,  V2.2,  in 
combination  with  VAXELN  Ada, 
VI. 1 


2.3  IMPLEMENTATION  CHARACTERISTICS 

One  of  the  purposes  of  validating  compilers  is  to  determine  the 
behavior  of  a  compiler  in  those  areas  of  the  Ada  Standard  that 
pe<  >nit  implementation  to  differ.  Class  D  and  E  tests 
specifically  ch^ck  for  such  implementation  differences. 

However,  tests  in  other  classes  also  characterize  an 
implementation.  This  compiler  is  characterized  by  the 
following  interpretations  of  the  Ada  Standard: 

.  Nongraphic  characters . 

Nongraphic  characters  are  defined  in  the  ASCII 
character  set  but  are  not  permitted  in  Ada  programs, 
oven  within  character  strings.  The  compiler 
correctly  recognizes  these  characters  as  illegal  in 
Ada  compilations.  The  characters  are  not  printed  in 
the  output  lasting.  (See  test  B26005A.) 

.  Capacities . 

The  compiler  correctly  processes  compilations 
containing  loop  statements  nested  to  65  levels, 
block  statements  nested  to  65  levels,  procedures 
nested  to  17  levels.  It  correctly  processes  a 
compilation  containing  72:  variables  In  the  cauie 
declarative  part.  (See  tests  D56A03A.  tt,  D560nm, 
J64005E. .a,  D29O02A) 


CONFIGURATION  INFORMATION 

.  ,  Universal  integer  calculations. 

An  implementation  is  allowed  to  reject  universal 
integer  calculations  having  values  that  exceed 
SYSTEM. MAX  INT.  This  implementation  does  not  reject 
such  calculations  and  processes  them  correctly. 

(See  tests  D4A002A,  D4A002B,  D4A004A,  and  D4A004B.) 

.  Universal  real  calculations. 

When  rounding  to  interger  is  used  in  a  static 
universal  real  expression,  the  value  appears  to  be 
rounded  away  from  zero.  (See  test  C4A014A.) 
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Predefined  types. 

This  implementation  supports  the  additional 
predefined  types  SHORT.INTEGER,  LONG_FLOAT,  and 
SHORT_SHORT_INTEGER  in  the  package  STANDARD.'  (See 
test  B86001DT. ) 

Based  literals. 

An  Implementation  is  allowed  to  reject  a  based 
literal  with  a  value  exceeding  SYSTEM . MAX_INT  during 
compilation,  or  it  may  raise  NUMERI C_ERROR  during 
execution.  This  implementation  raises  NUMERIC. 
ERROR  during  execution.  (See  test  E24101A.) 

Array  types. 

An  implementation  is  allowed  to  raise  NUMERI C.EPPOR 
for  an  array  having  a  'LENGTH  that  exceeds 
STANDARD. INTEGER 'LAST  and/or  SYSTEM . MAX.TNT . 

A  packed  BOOLEAN  array  having  a  ' LENGTH  exceeding 
INTEGER  •  LAST  raises  NUMERIC_ERROR  *li  in  the  array 
objects  are  declr*  (see  teat  C52103X.) 

A  packed  two-  >nal  BOOLEAN  array  with  more 

than  INTEGER 1  LA.sT  components  raises  nttwfrtc ...error 
vhen  the  array  hypo  is  declared.  (See  test 
C52104Y.) 


A  null  array  with  one  dimension  of  length  greater 
than  INTEGER 'LAST  nay  raise  NUMERI C_ERROR  either 
when  declared  or  assigned.  Alternatively,  an 
inplenentation  nay  accept  the  declaration.  However, 
lengths  nust  natch  in  array  slice  assignments.  This 
inplenentation  raises  NURfcRl C_ERROR  when  the  array 
type  is  declared.  (See  test  E52103Y.) 

In  assigning  one-dimensional  array  types,  the  entire 
expression  appears  to  be  evaluated  before  CONSTRAINT. 
ERROR  is  raised  when  checking  whether  the 
expression's  subtype  is  compatible  with  the  target's 
subtype.  In  assigning  two-dimensional  array  types, 
the  entire  expression  does  not  appear  to  be 
evaluated  before  CONSTRAINT_ERROR  is  raised  when 
checking  whether  the  expression's  subtype  is 
compatible  with  the  target's  subtype.  (See  test 
C52013A. ) 

Oiscrininated  types. 

During  compilation,  an  implementation  is  allowed  co 
either  accept  or  reject  an  incomplete  type  with 
discriminants  that  is  une.j  Ln  an  access  type 
definition  w*  th  a  compatible  discriminate 
constraint.  This  implementation  accepts  such 
subtype  indication*  during  compilation.  (Ro*  test 
F‘,,»  Q4<\ .  ) 

In  assigning  record  types  with  discriminants,  the 
entire  expression  appears  to  be  evaluated  before 
CON STRAINT_ERROR  is  raised  when  checking  whether  the 
expression's  subtype  is  compatible  with  the  target's 
subtype.  (See  test  C52013A.) 

Aggregates . 

In  the  evaluation  of  a  multi-dimensional  aggregate, 
all  choices  appear  to  be  evaluated  before  checking 
against  the  index  subtype.  (See  tests  C43207A  and 
C43207B. ) 
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In  the  evaluation  of  an  aggregate  contair  n g 
subaggregates,  all  choices  are  evaluated  before 
being  checked  for  identical  bounds.  (See  test 
E43212B.) 

t 

All  choices  are  evaluated  before  CONSTRAINT_ERROR  is 
raised  if  a  bound  in  a  nonnull  range  of  a  nonnull 
aggregate  does  not  belong  to  an  index  subtype.  (See 
test  E43211B. ) 

CONFIGURATION  INFORMATION 

.  Functions. 

The  declaration  of  a  parameter leas  function  with  the 
same  profile  as  an  enumeration  literal  in  the  same 
immediate  scope  is  rejected  by  the  implementation. 
(See  test  E66001D.) 

.  Representation  clauses. 

The  Ada  otandard  does  not  require  an  inplementation 
to  support  representation  clauses.  If  a 
representation  clause  is  not  supp.Ji.  i;ed,  then  the 
implementation  must  reject  it.  While  the  operation 
of  representation  clauses  in  not.  checked  by  Version 
1.8  of  the  ACVC ;  they  are  used  in  testing  other 
language  fnatu-es.  Testing  indicates  that  *»i  ;a 
specifications  are  supported,  that  specification  of 
storage  for  a  task  activation  is  supported,  and  that 
specification  of  SMALL  for  a  fixed  point  type  is 
supported.  Enumeration  representation  clauses 
including  those  that  specify  noncontiguous  values 
appear  to  be  supported.  (See  tests  C55B16A, 

C87B62A,  C87B62B,  C87B62C,  and  BC1002A.) 

.  Generics . 

When  given  a  separately  compiled  generic  unit 
specification,  some  illegal  instantiations,  and  a 
body,  the  compiler  rejects  the  body  because  of  the 
instantiations.  (See  tests  BC3204C  and  BC3204D.) 

.  Pragmas . 

The  pragma  INLINE  is  supported  for  procedures.  The 
pragma  INLINE  is  supported  for  functions.  (See 
tests  CA3004E  and  CA3004F.) 
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Input/ output . 

The  package  SEQUENTIAL_IO  can  be  instantiated  with 
unconstrained  array  types  and  record  types  with 
discriminants.  The  package  DIRECT__IO  cannot  be 
instantiated  with  unconstrained  array  types  and 
record  types  with  discriminants  without  defaults. 
(See  tests  CE2201D,  CE2201E,  and  CE2401D.) 

More  than  one  internal  file  can  be  associated  with 
each  external  file  for  sequential  I/O  for  reading 
only.  (See  tests  CE2107A..F.) 

More  than  one  internal  file  can  be  associated  with 
each  external  file  for  direct  I/O  for  reading  only. 
(See  tests  CE2107A. .F.) 

An  external  file  associated  with  more  than  one 
internal  file  can  be  deleted.  (See  test  CE2110B.) 

Moi'e  than  one  internal  file  can  be  associated  with 
each  external  file  for  text  I/O  for  reading  only. 
(See  tests  CE3111A. .E.) 

Dynamic  creation  and  resetting  of  a  sequential  file 
is  allowed.  (See  test  CE2210A.) 

Temporary  sequential  files  are  given  a  name. 
Temporary  direct  files  are  given  a  name.  Temporary 
files  given  names  are  not  deleted  when  they  are 
closed,  but  are  not  accessible  after  the  completion 
of  the  main  program.  (See  test  CE2108A.) 


CHAPTER  3 
TEST  INFORMATION 


3.1  TEST  RESULTS 

The  Federal  Software  Management  Support  Center  identifier*  2362 
of  the  2399  tests  in  Version  1.8  of  the  Ada  Compiler 
Validation  Capability  as  potentially  applicable  to  the 
validation  of  VAX  Ada  VI. 3.  Excluded  were  18  tests  with 
source  lines  that  were  too  long;  and  the  19  withdrawn  tests. 
After  they  were  processed  23  tests  were  determined  to  be 
inapplicable.  The  remaining  2339  tests  were  parsed  the 
compiler. 

The  federal  Software  Management  Support  Center  concludes  that 
the  testing  results  demonstrate  acceptable  conformance  to  the 
Ada  Standard. 

3.2  SUMMARY  OF  TEST  RESULTS  BY  CLASS 


RESULT 

h 

1 

TEST 

£ 

CLASS 

£ 

£ 

U 

TOTAL 

Passed 

69 

863 

1329 

17 

i  ? 

46 

^339 

Failed 

0 

0 

0 

0 

0 

0 

0 

N/A 

0 

2 

39 

0 

0 

0 

41 

Withdrawn 

0 

7 

12 

0 

0 

0 

19 

TOTAL 

69 

874 

1380 

17 

13 

46 

2399 
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TEST  INFORMATION 


3.3  SUMMARY  OF  TEST  RESULTS  BY  CHAPTER 


RESULT 

i 

2  3  4  _  .5  6  7  8  9  10  11 _ 12 _ l_4__JT_Qtal 


Passed  98  322  420  244 
Failed  0000 
N/A  J.8  3  0  3 
W/D  0  5  5  0 
TOTAL  116  330  425  247 
3 . 4  WITHDRAWN  TESTS 


161  97  138  261  130 

0  0  0  0  0 

0  0  11  0 
0  1  1.  2  4 

161  98  140  264  134 


32  218  218  2339 

0  0  0  0 

0  0  15  41 

0  10  19 

32  219  233  2399 


The  foi lowing  tests  have  been  withdrawn  from  the  ACVC  Version 

1.8: 


C32114A 

B33203C 

C34msA 

C3!'.90  4A 


B37401A 
C41404A 
B4i>  116A 
C48008A 


B49006A 
34A010C 
B7410j  d 

C8  /  81'  .J*. 


C92005A 
C940ACA 
CA3005A. .D 
BC32C ’  ^ 


See  Appendix  D  ifor  the  rationale  for  withdrawing  thv:s«  tests, 

3 . o  INAPPLICABLE  TESTS 

Some  tests  do  not  apply  to  all  compilers  because  they  make  use 
of  features  that  a  compiler  is  not  required  by  the  Ada  Standard 
to  support.  Others  may  depend  on  the  result  of  another  test 
that  is  either  inapplicable  or  withdrawn.  For  this  validation 
attempt,  41  tests  were  inapplicable  for  the  reasons  indicated: 

.  C96005B  -  there  are  no  out-of-range  values  for 
type  DURATION 

.  CE2107B,  CE2107C,  CE2107D,  CE2107E,  CE2111D 
CE3111B,  CE3111C,  CE3111D,  CE3111E,  CE3114B 
CE2110B 

-  with  default  open/create  options  (no  FORM 
string) ,  VAX  Ada  allows  more  than  one  internal 
file  to  be  associated  with  the  same  external  file 
for  mode  IN_FILE  only  (multiple  readers)  ,  but 
does  not  allow  more  than  one  association  for  OUT 
_FILE  or  INOUT_FILE  in  combination  with  mode  IN 
_FILE  or  another  mode  0UT_FILE  (mixed  readers  and 
writers  or  multiple  writers) . 


CE3115A  -  VAX  Ada  allows  resetting  of  shared 

files,  but  an  implementation  restriction 
does  not  allow  the  mode  of  a  file  to  be 
changed  from  IN_FILE  to  either  INOUT 
_FILE  or  OUT_FILE  (an  amplification  of 
accessing  privileges  while  the  external 
file  is  being  accessed) .  Thus  CE3115A 
does  not  apply. 

CE2102D,  CE2102I,  CE2111H  -  the  creation  of  a  file 
of  mode  IN_FILE  is  not  allowed 

CE24113H. .C24113Y  -  source  lines  exceed  the 
limit  of  120  characters 

B520040,  B55B09C,  C34001E,  C55B07A  - 

LONG_INTEGER  is  not  supported 

C34001F,  C35702A  - 

SHORT_FLOAT  is  not  supported 

C86001F  ■  TEXT_IO  uses  the  predefined  package 

SYSTEM,  which  is  made  obsolete  by  the 
user  defined  package  SYSTEM 
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SPT.TT  TESTS 


If  one  or  more  errors  do  not  appear  to  have  been  detected  in  a 
Class  B  test  because  of  compiler  error  recovery,  then  the  test 
is  split  into  a  set  of  smaller  tests  that  contain  the 
undetected  errors.  There  were  no  split  tests  required  for  this 
implementation . 


3.7  ADDITIONAL  TESTING  INFORMATION 

3.7.1  Prevalidation 


Prior  ’*  •  validation,  sets  of  test  results 
produced  by  VAX  Ada  VI . 3  were  submitted 
Software  Management  Support  Center  by  the 
pre-validation  review.  Analysis  of  these 
th*-*'  compiler  successfully  passed  all 


for  ACVC  Version  1.8 
to  the  Federal 
applicant  for 
results  demoi  .crated 
applicable  tests. 


The  specific  configurations  submitted  for  the  pre-validation 
revi^'  re  re  as  follows: 


Host  Target 


Processor 

Op-  Svs. 

Processor 

Oo.  Svs 

VAX  l 1/780 

VAX/VMS 

VAX— 11/730 

;rV</ VMS 

VA  .  •«  1/780 

VAX/ VMS 

VAX-: 1/780 

VAa/VMS 

V,  ;  i  1/780 

VAX/VMS 

VAX-11/782 

VAX/VMS 

VAX-11/780 

VAX/ VMS 

VAX  8300 

VAX/ VMS 

VAX-11/780 

VAX/VMS 

VAX  8500 

VAX/'/MS 

VAX-11/780 

VAX/VMS 

VAX  8600 

VAX/VMS 

VAX-11/780 

VAX/VMS 

VAX  8650 

VAX/VMS 

VAXstation  II 

MicroVMS 

VAX-11/780 

VAX/VMS 

VAXstation  II 

MicroVMS 

MicroVAX  II 

VAXELN 

The  VAX-11/782  results  were  compared  against  the  VAX-11/730, 
780,  8300,  8500,  8600  and  the  8650  and  found  to  be  equivalent. 

The  results  from  the  Vax-11/780  were  compared  against  the 
MicroVAX  II,  730,  782,  8300,  8500,  8600,  8650  and  780  and  found 
to  be  equivalent. 

The  results  produced  by  VAX  Ada  were  the  same  for  all  tested 
members  of  the  VAX  family — for  those  using  VMS,  MicroVMS,  or 
VAXELN. 
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3 ...  2  Test  Method 


A  test  magnetic  tape  containing  ACVC  Version  1.8  vas  taken 
on-site  by  the  validation  team.  This  magnetic  tape  contained 
all  tests  applicable  to  this  validation  as  well  as  all  tests 
inapplicable  to  this  validation  except  for  any  Class  C  tests 
that  require  floating-point  precision  exceeding  the  maximum 
value  supported  by  the  implementation.  Tests  that  were 
withdrawn  from  ACVC  Version  1.8  were  not  run.  Tests  that  make 
use  of  values  that  are  specific  to  an  implementation  were 
customized  before  being  written  to  the  magnetic  tape. 

The  test  tape  was  written  in  VAX  BACKUP  format  and  was  loaded 
to  disk  using  Digital  Equipment  Corp.  standard  utility 
routines . 


Once  all  tests  had  been  loaded  to  disk,  processing  was  begun 
usinq  command  scripts  provided  by  Digital  Equipment  Corp. 

The  validation  was  executed  in  batch  control  mode  with  the 
files  organized  by  chapter  and  class  to  allow  the  tests  to  be 
run  independently  and  in  parallel. 


A  i':*w  compilation  library  was  created  and  initialized  with  all 
units  contained  in  the  library  given  the  logical  name 
ADA$ PREDEFINED.  The  startup  control  file  establirhed  the  newly 
created  library  as  the  current  compilat.  n  library  and  then 
compile*  REPORT  and  t?HECK_FILB  into  that  library. 

The  pt  validation  results  were  verified  on-site.  The  various 
tests  results  from  the  prevalidation  execution  were  captured  on 
disk  and  used  to  compare  against  the  on-site  results  using 
MDIFM ,  a  difference  utility. 


The  OPTIMIZE  option  was  used  to  produce  the  compiled  code. 
The  following  configurations  were  tested  on-site: 


Post  Qp^  3 vs.  Target 


op.  Svs. 


VAX  8800  VAX/VMS 


VAXstation  II  MicroVMS 


VAX-11/750  VAX/VMS 

VAX-11/785 

VAX  8200 

VAX  8700 

VAX  8800 

MicroVAX  II  MicroVMS 

MicroVAX  II  VAXELN 

VAXstation  II  MicroVMS 
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3.7.3  Test  Site 


The  validation  team  arrived  at  Nashua,  NH  on  3  Nov  1986  and 
departed  after  testing  was  completed  on  7  Nov  1986. 
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APPENDIX  A 
COMPLIANCE  STATEMENT 


Digital  Equipment  Corporation  hai>  submitted  tho  following  compliance 
statement  concerning  VAX  Ada  and  VAXELN  Ada. 


COMPLIANCE  STATEMENT 


Compliance  Statement 


Base  Configuration: 

Compiler:  VAX  Ada  Version  1.3 

Test  Suite:  Ada  Compiler  Validation  Capability,  Version  VI. 6 
Host  Computers: 

Machines: 

VAX-11/730,  VAX-11/750,  VAX-11/780,  VAX-11/782, 
VAX-11/785,  VAX  8200,  VAX  8300,  VAX  8500, 

VAX  8600,  VAX  8650,  VAX  8700,  and  VAX  8600. 

Operating  System: 

VAX/VMS,  version  4.4 

Machines: 

MicroVAX  II,  and 

VAXstation  II. 

Operating  System: 

WirroVMS,  Version  4.4 

Target  Computers  '  as  host  plus  VAXELN): 

Machines: 

VAX-1 l / 730 ,  VAX-1’.  iO,  VAX-11/780,  VAX-il/782, 

VAX -li/785,  VAX  8200,  VAX  8300,  VAX  8500, 

VAX  8600,  VAX  8650,  VAX  8700,  and  VAX  8800. 

Operating  System: 

VAX/VMS,  Version  4.4 

•  Machines: 

•  "MicroVAX  II,  and 

VAXstation  II. 

Operating  System: 

MicroVMS,  Version  4.4 

Machines: 

MicroVAX  II 
Operating  System: 

VAXELN  Toolkit,  Version  2.2,  in  combination  with 
VAXELN  Ada,  Version  1.1. 


COMPLIANCE  STATEMENT 


Digital  Equipment  Corporation  has  made  no  deliberate  extensions  to 
the  Ada  language  standard. 

Digital  Equipment  Corporation  agrees  to  public  disclosure  of  this 
report. 

Digital  Equipment  Corporation  agrees  to  continue  to  comply  with  the 
Ada  trademark  policy,  as  defined  by  the  Ada  Joint  Program  Office. 


6  October  1986 


Charles  2.  Mitchell 
VAX  Ada  Project  Leader 
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APPENDIX  B 


APPENDIX  F  OF  THE  ADA  STANDARD 


f'ue  only  allowed  implementation  dependencies  correspond  to 
Implementation-dependent  pragmas,  to  certain  machine -dependent 
conventions  as  mentioned  in  chapter  13  of  MIL-STD-1815A,  and  to 
•ortain  allowed  restrictions  on  representation  classes.  The 
imp!,  .'mentation-dependent  characteristics  are  described  in  the 
following  sect 5  v.;>  which  discuss  topics  one  through  eight  as  stated 
in  Appendix  F  of  the  Ada  Language  Reference  manual 
{ 'VNSI/MIL-STD-ISISA) .  Two  other  sections,  package  STANnARD  and  file 
naming  con-  nt.ions,  are  als:o  Included  in  this  appendix. 

Portions  oi  ;.**i-'  section  refer  to  the  followin'-*  attachments: 

1.  Attachment  1  -  Implementation-DepemV  i  magmas 

2.  Attachment  2  -  VAX  Ada  Appendix  F 


(1)  Implementation-Dependent  Pragmas 
See  Attachment  1. 


(2)  Implementation-Dependent  Attributes 
Name  Type 

P'AST_ENTRY  The  value  of  this  attribute  is  of  type 

SYSTEM . AST_HANDLER . 

P'BIT  The  value  of  this  attribute  is  of  type 

universal_integer . 

P'MACHINE_SIZE  The  value  of  this  attribute  is  of  type 

universal_integer . 
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t  ' NULL_PARAMETER  The  value  of  this  attribute  is  of  type 

P. 

P ' TYPE_CLASS  The  value  of  this  attribute  is  ,  of  type 

SYSTEM. TYPE  CLASS. 


(3)  Package  SYSTEM 

See  Attachment  2,  Section  F.3. 


(4)  Representation  Clause  Restrictions 
See  Attachment  2,  Section  F.4. 


(5)  Conventions 

See  Attachment  2,  Section  F.5. 


(6)  Address  Clauses 

Sec  Attachment  2,  Section  F.6. 


(/)  unchecked  ;onve  rs  ions 

VAX  Ada  supports  the  generic  function  UNCHECKEDCONVERSION 
with  the  following  restrictions  on  the  class  of  types 
involved: 

1.  The  actual  subtype  corresponding  to  the  formal  type 

TARGET  must  not  be  an  unconstrained  array  type. 

2.  The  actual  subtype  coresponding  to  the  formal  type 

TARGET  must  not  be  an  unconstrained  type  with 
discriminants. 


(8)  Input-Output  Packages 

SEQUENTIAL__10  Package 

SEQUENTIAL  10  can  be  instantiated  with  any  file 
type,  including  an  unconstrained  array  type  or  an 
unconstrained  record  type.  However,  input-output 
for  access  types  is  erroneous. 


J  ‘fr  -‘i  I.  .  i. 
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VAX  Ada  provides  full  support  for  SEQUENTIAL_IO, 

with  the  following  restrictions  and  clarifications: 

1.  VAX  Ada  supports  modes  IN_FILE  and  OUT^FILE  for 

sequential  input-output.  However,  VAX  Ada  does 
not  allow  the  creation  of  a  file  of  mode 

IN_FILE. 

2.  More  than  one  internal  file  can  be  associated 

with  the  same  external  file.  However,  with 

default  FORM  strings,  this  is  only  allowed  ..hen 
all  internal  files  have  inode  IN  FILE  (multiple 
readers).  If  one  or  more  internal  files  have 
mode  OUT_FILE  (mived  readers  and  writers  or 
multiple  write'. s),  chon  sharing  can  only  be 
achieved  using  FORM  strings. 

3.  VAX  Ada  supports  deletion  of  an  external  file 

which  is  associated  with  more  than  one  internal 
file.  In  this  case,  the  external  file  becomes 
immediately  unavailable  for  any  new 
associations,  but  the  current  associations  are 
not  affected;  the  external  file  is  actually 
deleted  aff^r  the  last  association  has  been 
broken. 

4.  VAX  Ada  allows  resetting  of  ‘ha  >d  files,  but  an 

implementation  restriction  does  not  allow  the 
mode  of  a  file  to  be  changed  from  IN_FILE  tc 
OUT_FILE  (an  amplification  of  accessing 

privileges  while  the  external  file  is  being 
accessed). 


DlRECT__IO  Package 

type  CNT  is  range  0  ..  2147463647; 

TEXT_I0  Package 

type  CNT  is  range  0  ..  2147483647; 

subtype  FIELD  is  INTEGER  range  0  ..  2147463647; 

LOW_LEVEL_IO 

Low-level  input-output  is  not  provided. 
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(9)  Package  STANDARD 

type  INTEGER  is  range  -2147483648  ..  2147483647; 
type  SHORT_INTEGER  is  range  -32768  ..  32767; 
type  SHORT_SHORT_I NTEGER  is  range  -128  ..  127; 

—  type  LONG_I NTEGER  is  not  supported 

type  FLOAT  is  digits  6; 

type  LONG_FLOAT  is  digits  15; 

type  LONG_LONG_FLOAT  is  digits  33; 

—  type  SHORT_FLOAT  is  not  supported 

type  DURATION  is  Jolta  1.0E-4 

range  -131072.0  ..  131071.9999; 


(10;  ;'i  to  Names 


File  names  follow  the  conventions  and  restrictions  of-  the 
target  operating  system. 


Attachment  1 


Implementation-Dependent 

Pragmas 


This  attachment  defines  the  pragmas  Lis  t',  PAGE,  and  OPT1M1/E,  and 
summarizes  the  definitions  given  elsewhere  of  the  remaining  language- 
defined  pragmas.  VAX  Ada  implementation-dependent  information 
(including  the  VAX  Ada  implementation-dependent  pragmas)  is  marked 
with  change  bars. 

t  he  VAX  Ada  pragma  TITLE  is  also  defined  in  this  annex. 


•  .  ta  Meaning 

/\ST_  i;.\i  IKY  Takes  the  simple  name  of  a  single 

entry  as  the  single  argument;  at 
most  one  AST_  ENTRY  pragma 
•  is  allowed  for  any  given  entry. 

This  pragma  must  be  used  in 
combination  with  the  AST_ ENTRY 
attribute,  and  is  only  allowed  after 
the  entry  declaration  and  in  the 
same  task  type  specification  or 
single  task  as  the  entry  to  which 
it  applies.  This  pragma  specifies 
that  the  given  entry  may  be  used  to 
handle  a  VAX/VMS  asynchronous 
system  trap  (AST)  resulting  from  a 
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VAX/VMS  system  service  call.  The 
pragma  does  not  attect  normal  use 
of  the  entry  (see  9.12a). 


2  CONTROLLED 


3  ELABORATE 


Takes  the  simple  name  of  an  access 
type  as  the  single  argument.  This 
pragma  is  only  allowed  immedi¬ 
ately  within  the  declarative  part  or 
package  specification  that  contains 
the  declaration  of  the  access  tvpe; 
the  declaration  must  occur  before 
the  pragma.  This  pragma  is  not 
allowed  for  a  derived  tvpe  This 
p.agma  specifies  that  uatic 
storage  reclamation  must  not  be 
performed  for  objects  designated 
by  values  of  the  access  type,  except 
upon  leaving  the  innermost  blo.k 
statement,  subprogram  body,  or 
task  body  that  encloses  the  access 
type  declaration,  or  after  leaving 
the  main  program  (see  4.8). 

Takes  oik  ..  .  more  simple  names 
denoting  library  units  as  arguments. 
This  pragma  is  >  . ' ,  (lowed  imme¬ 
diate!)  lfter  the  context  clause  of 
a  compilation  unit  (before  the  sub¬ 
sequent  library  unit  or  secondary 
unit).  Each  argument  mud  be  the 
simple  name  of  a  'ilnary  unit  men¬ 
tioned  by  the  context  clause.  This 
pragma  specifies  that  the  corre¬ 
sponding  library  unit  body  must  be 
elaborated  before  the  given  compi¬ 
lation  unit.  If  the  given  compilation 
unit  is  a  subunit,  the  library  unit 
body  must  be  elaborated  before  the 
body  of  the  ancestor  library  unit  of 
the  subunit  (see  10.5). 


EXPORT. EXCEPTION  Takes  an  internal  name  denoting  an 

exception,  and  optionally  takes  an 
external  designator  (the  name  of  a 
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VAX/VMS  Linker  global  symbol),  a 
form  (ADA  or  VMS),  and  a  mde  (a 
static  integer  expression  that  i->  in¬ 
terpreted  as  a  VAX  condition  code) 
as  arguments.  A  code  value  must 
be  specified  when  the  form  is  VMS 
(the  default  if  the  form  is  not  spec¬ 
ified).  This  pragma  is  only  allowed 
at  the  place  of  a  declarative  .lem, 
and  must  apply  to  an  exception 
declared  by  an  earlier  declarative 
item  of  the  same  declarative  part 
or  package  specification;  it  is  not 
allowed  for  a  i  exception  declared 
with  a  renaming  declaration.  The 
pragma  permits  an  Ada  excep¬ 
tion  to  be  handled  by  programs 
written  in  other  VAX  languages 
(see  13.9a  3.2). 

EXPORT, FUNCTION  Takes  an  internal  name  denoting  a 

function,  and  optionally  takes  an 
external  designator  (the  name  of  a 
VAX/VMS  Linker  global  symbol), 
parameter  types,  and  result  type 
as  arguments.  This  pragma  is  only 
allowed  at  the  place  r  declarative 
item,  and  must  apply  to  a  function 
declared  by  an  earlier  declarative 
item  of  the  same  declarativ  e  part 
or  package  specificatii  \.  In  the 
case  of  a  function  declared  as  a 
compilation  unit,  the  pragma  is 
only  allowed  after  the  function  dec¬ 
laration  and  before  any  subsequent 
compilation  unit.  This  pragma  is 
not  allowed  for  a  function  declared 
with  a  renaming  declaration,  and 
is  not  allowed  for  a  generic  func¬ 
tion  (it  may  be  given  for  a  generic 
instantiation).  This  pragma  permits 
an  Ada  function  to  be  called  from 
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EXPORT.  OBJECT 


•  •  ’OR  1.  PRO-  ' .  JRE 


a  program  written  in  another  VAX 
language  (see  13. 9a.  1.4). 

Takes  an  internal  name  denoting 
an  object,  and  optionally  takes  an 
external  designator  (the  name  of  a 
VAX/VMS  Linker  global  symbol) 
and  size  designator  (a  VAX/VMS 
Linker  global  symbol  whose  value 
is  the  size  in  bytes  of  the  exported 
object)  as  arguments.  This  pragma 
is  only  allowed  at  the  place  of  a 
declarative  item  at  the  outermost 
level  of  a  library  package  speci¬ 
fication  or  body,  and  mi>l  apply 
to  a  variable  declared  by  an  ear¬ 
lier  declarative  item  of  the  same 
package  specification  or  body, 
the  variable  must  be  of  a  type  or 
subtype  that  has  a  constant  size 
at  compile  time.  This  pragma  is 
not  allowed  for  objects  declared 
nii!  i  renaming  declaration,  and 
is  not  allowed  in  a  generic  unit. 
This  pragma  permits  an  Ada  ob¬ 
ject  to  be  ^ferred  to  1  t  metine 
written  in  another  VAX  language 
(sec  13. 9a. 2. 2). 

Takes  an  internal  name  denoting 
a  procedure,  and  optionally  takes 
an  external  designator  (the  name  of 
a  VAX/VMS  Linker  global  symbol) 
and  parameter  types  as  arguments. 
This  pragma  is  only  allowed  at  the 
place  of  a  declarative  item,  and 
must  apply  to  a  procedure  declared 
by  an  earlier  declarative  item  of  the 
same  declarative  part  or  package 
specification.  In  the  case  of  a  pro¬ 
cedure  declared  as  a  compilation 
unit,  the  pragma  is  only  allowed 
after  the  procedure  declaration  and 
before  any  subsequent  compilation 
unit.  This  pragma  is  not  allowed 
for  a  procedure  declared  with  a 
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renaming  declaration,  and  is  not 
allowed  foi  a  generic  procedure  (it 
may  be  given  for  a  generic  instant- 
ation).  This  pragma  permits  an  Ada 
routine  to  be  called  from  ..  program 
written  in  another  VAX  language 
(see  13.9a.  1.4). 

EXPORT. VALUED.  PROCEDURE  Takes  an  internal  name  denoting 

a  procedure,  and  >ptionalo  takes 
an  external  designator  (the  name  of 
a  VAX/VMS  t  inker  global  symbol) 
and  parameter  types  as  argument' 
This  pragma  is  only  allowed  at  th-> 
pla  n  of  a  declarative  item,  and 
must  apply  to  a  procedure  declared 
by  an  earlier  declarative  item  of  the 
same  declarative  part  or  package 
specification.  In  the  case  of  a  pro¬ 
cedure  declared  as  a  compilation 
unit,  the  pragma  is  only  allowed 
after  the  procedure  declaration  and 
before  any  subsequent  compilation 
unit.  The  first  ;.  r  only)  parameter 
of  the  pio-edi:re  must  be  of  mode 
out.  This  pragma  is  not  allowed 
for  a  pu  .ediim  declared  ith  a 
renaming  decla  .  non  and  is  not 
allowed  for  a  generic  procedure  (it 
may  be  given  for  a  generic  instan¬ 
tiation).  Thw  pragma  permits  an 
Ada  procedure  to  behave  as  a  func¬ 
tion  that  both  returns  a  value  and 
causes  side  effects  on  its  parame¬ 
ters  when  it  is  called  from  a  routine 
written  in  another  VAX  language 
(see  13.9a. 1.4). 


IMPORT. EXCEPTION'  Takes  an  internal  name  denoting 

an  exception,  and  optionally  takes 
an  external  designator  (the  name 
of  a  VAX/VMS  Linker  global  sym¬ 
bol),  a  form  (ADA  or  VMS),  and 
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a  code  (a  static  integer  expres¬ 
sion  that  is  interpreted  as  a  VAX 
condition  code)  as  arguments  A 
code  value  is  allowed  only  when 
the  form  is  VMS  (the  default  if  the 
form  is  not  specified).  This  pragma 
is  only  allowed  at  the-  place  of  a 
declarative  item,  and  must  apply 
to  an  exception  declared  bv  an 
earlier  declarative  item  >  me  same 
declarative  pad  o  package  spec¬ 
ification;  it  is  not  allowed  for  an 
exception  declared  with  a  renaming 
declaration.  This  pr.-"  permits  a 
non-Ada  excof:on  (most  notablv, 
a  VAX  condition)  to  be  handled  by 
an  Ada  program  (see  13. 9a. 3.1). 

IMPOKT_  FUNCTION  Takes  an  internal  name  denoting  a 

function,  and  optionally  takes  an 
external  designator  (t1-  .•  name  of  a 
VAXIVMS  1  ■■  kor  global  symbol), 
parameter  types,  result  type,  and 
mechanism  ,  uguments.  Pragma 
INTERFACE  must  be  used  with  this 
pragma  (so  '/.'>>  This  pragma 
is  only  allowed  at  >ne  place  .  f  a 
declarative  item  •  •  must  apply 
to  a  function  declared  by  an  earlier 
declarative  item  of  the  same  declar 
ative  part  or  package  specification. 
In  the  case  of  a  function  declared 
as  a  compilation  unit,  the  pragma  is 
only  allowed  after  the  function  dec¬ 
laration  and  before  any  subsequent 
compilation  unit.  This  pragma  is  al¬ 
lowed  for  a  function  declared  with 
a  renaming  declaration;  it  is  not 
allowed  for  a  generic  function  or  a 
generic  function  instantiation.  This 
pragma  permits  a  non- Ada  rou¬ 
tine  to  be  used  as  an  Ada  function 
(see  13. 9a. 1.1). 

IMPORT.OBJECT  Takes  an  internal  name  denoting 

an  object,  and  optionally  takes  an 
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external  designator  (the  name  of  a 
VAX/VMS  Linker  global  symbol) 
and  size  (a  VAX/VMS  Linker  global 
symbol  whose  value  is  the  size  in 
bytes  of  the  imported  object)  as 
arguments.  This  pragma  is  only 
allowed  at  the  place  of  a  declara 
tive  item  at  the  outermost  level  of 
a  library  package  specification  or 
body,  and  must  apply  to  a  variable 
declared  by  an  earlier  declarative 
item  of  the  same  package  specifi¬ 
cation  or  body;  the  variable  must 
be  of  a  type  or  subtype  that  has  a 
constant  size  at  compile  time.  This 
pragma  is  not  allowed  for  objects 
declared  with  a  renaming  declara¬ 
tion,  and  is  not  allowed  in  a  generic 
unit.  This  pragma  permits  storage 
declared  in  a  non-Ada  routine  to 
be  referred  to  bv  ar  \da  program 
(see  13.9a  2  1). 

Takes  an  internal  name  denoting 
a  procedure,  and  optionally  takes 
an  external  d..  senator  (the  name  of 
a  VAX/VMS  I  inter  global  $■  nibol) 
i’1'  '•"»  ,fer  types,  and  mecha...  m 
abatements.  Pragma  INTERLACE 
mu  d  b;-  used  with  this  pragma 
(see  13.9).  This  pragma  only 
allowed  at  the  place  of  a  declar¬ 
ative  item,  and  must  apply  to  a 
procedure  declared  by  an  earlier 
declarative  item  of  the  same  declar¬ 
ative  part  or  package  specification. 

In  the  case  of  a  procedure  declared 
as  a  compilation  unit,  the  pragma 
is  only  allowed  after  the  proce¬ 
dure  declaration  and  before  any 
subsequent  compilation  unit.  This 
pragma  is  allowed  for  a  procedure 
declared  with  a  renaming  declara¬ 
tion;  it  is  not  allowed  for  a  generic 
procedure  or  a  generic  procedure 
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instantiation.  This  pragma  permits 
a  non-Ada  routine  to  be  used  as  an 
Ada  procedure  (see  13.9a  1  1). 

IMPORT. VALUED. PROCEDURE  Takes  an  internal  name  denoting  a 

procedure,  and  optionally  takes  an 
external  designator  (the  name  of  a 
VAX/VMS  Linker  global  symbol), 
parameter  types,  and  mechanism 
as  arguments.  Pragma  INTERLACE 
nw;t  be  used  with  this  pragma  (see 
13.9).  This  pragma  is  only  allowed 
at  the  place  if  a  declarative  item, 
and  mu-t  apply  to  a  piocedure 
declared  by  an  earlier  declarative 
item  of  the  same  declarative  part 
or  package  specification.  In  the 
case  of  a  procedure  declared  as 
a  compilation  unit,  the  pragma  is 
only  allowed  after  the  procedure 
declaration  and  before  any  subse 
quent  compilation  unit.  The  first 
(>;i  only)  parameter  of  the  proce¬ 
dure  must  be  of  mode  out.  This 
pragma  is  allowed  for  a  procedure 
declared  with  a  renaming  declara¬ 
tion;  it  is  not  allowed  for  a  generic 
procedure.  This  piagma  permits 
a  non-Ada  routine  that  returns  a 
value  and  causes  side  effects  on  its 
parameters  to  be  used  as  an  \da 
procedure  (see  13.9a. 1.1). 

4  INLINE  Takes  one  or  more  names  as  ar¬ 

guments;  each  name  is  either  the 
name  of  a  subprogram  or  the  name 
of  a  generic  subprogram.  This 
pragma  is  only  allowed  at  the  place 
of  a  declarative  item  in  a  declarative 
part  or  package  specification,  or  af¬ 
ter  a  library  unit  in  a  compilation, 
but  before  any  subsequent  compi¬ 
lation  unit.  This  pragma  specifies 
that  the  subprogram  bodies  should 
be  expanded  inline  at  each  call 
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whenever  possible;  in  the  case  of 
a  generic  subprogram,  the  pragma 
applies  to  calls  of  its  instantiations 
(see  6.3.2) 

Takes  a  language  name  and  a  sub¬ 
program  name  as  arguments.  This 
pragma  is  allowed  at  the  place  of  a 
declarative  item,  and  must  apply  in 
this  case  to  a  subprogram  declared 
by  an  ear'ier  declarative  item  of  the 
same  declarative  part  or  package 
specification.  This  pragma  is  also 
allowed  for  a  library  unit,  in  this 
case  the  pragma  most  appear  after 
the  subprogram  declaration,  and 
before  any  subsequent  compila¬ 
tion  unit.  This  pragma  specifies 
the  othe  '  mguage  (and  thereby 
the  calling  conventions)  and  in¬ 
forms  the  compiler  that  an  object 
module  will  be  supplied  for  the 
corresponding  subproprnm  (see 
139) 

In  VAX  Ada  pragma  INTERFACE 
is  required  in  combination  with 
pragmas  IMPO!  .  UNCTION, 
IMPORT. PROCEDURE,  and 
IMPORT.  VALUED.  PROCEDURE 
(see  13.9a.l). 

Takes  one  of  the  identifiers  ON 
or  OFF  as  the  single  argument. 

This  pragma  is  allowed  anywhere 
a  pragma  is  allowed.  It  specifies 
that  listing  of  the  compilation  is  to 
be  continued  or  suspended  until 
a  LIST  pragma  with  the  opposite 
argument  is  given  within  the  same 
compilation.  The  pragma  itself 
is  always  listed  if  the  compiler  is 
producing  a  listing. 
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j  LONG.  FLOAT  Takes  either  D_ FLOAT  or  G_ 

FLOAT  as  the  single  argument. 

The  default  is  G_ FLOAT.  This 
pragma  is  only  allowed  at  the  start 
of  a  compilation,  before  the  first 
compilation  unit  (if  any)  of  the 
compilation.  It  specifies  the  choice 
of  representation  to  be  used  for  the 
predefined  type  LONG. FLOAT 
in  package  STANDARD  and  for 
floating  point  type  declarations  with 

j  digits  specified  in  the  range  7.15 

i  (see  3.5.7a). 


MAIN. STORAGE  Takes  one  or  two  nonnegative 

static  simple  expressions  of  some 
integer  type  as  arguments.  This 
pragma  i;;  only  allowed  in  the 
outermost  declarative  part  of  a 
library  subprogram;  at  most  one 
such  pragma  is  allowed  in  a  library 
subprogram.  It  has  an  effect  only 
when  the  subprogram  to  which  it 
applies  is  used  as  a  main  program. 
This  pragma  causes  a  fixed-size 
stack  to  be  c  oated  for  a  main  task 
(the  tisk  associated  with  a  main 
program),  and  determines  the 
number  of  storage  units  (bytes)  to 
be  allocated  for  the  stack  working 
storage  area  and/or  guard  pages. 
The  value  specified  for  either  or 
both  the  working  storage  area  and 
guard  pages  is  rounded  up  to  an 
integral  number  of  pages.  A  value 
of  zero  for  the  working  storage 
area  results  in  the  use  of  a  default 
size;  a  value  of  zero  for  the  guard 
pages  results  in  no  guard  storage. 

A  negative  value  for  either  working 
storage  or  guard  pages  causes  the 
pragma  to  be  ignored  (see  13.2b). 
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MEMORY.  SIZE 


OPTIMIZE 


Takes  a  numeric  literal  as  the 
single  argument.  This  pragma 
is  only  allowed  at  the  start  of 
a  compilation,  before  the  first 
compilation  unit  (if  any)  of  the 
compilation.  The  effect  of  this 
pragma  is  to  use  the  value  of  the 
specified  numeric  literal  for  the 
definition  of  the  named  number 
MEMORY. SIZE  (see  13.7). 

Takes  one  of  the  identifiers  TIME 
or  SPACE  as  the  single  argument. 
This  pragma  is  only  allow  .‘••■I  w  ithin 
a  declarative  part  and  it  applies 
to  the  block  or  body  enclosing 
the  declarative  part.  It  specifies 
whether  time  or  space  is  the  pri¬ 
mary  optimization  criterion. 


PACK 


PAGE 


In  VAX  Ada,  this  pragma  is  only 
allowed  immediately  within  a 
declarative  part  of  a  body  declara 
tion 

Takes  the  simple  name  of  a  recoid 
or  array  type  vis  the  singl  ngn 
ment.  The  allow-ed  positions  tor 
this  pragma,  and  the  restrictions  on 
the  named  type,  are  governed  by 
the  same  rules  as  for  a  representa¬ 
tion  clause.  The  pragma  specifies 
that  storage  minimization  should  be 
the  main  criterion  w’hen  selecting 
the  representation  of  the  given  tvue 
(see  13.1). 

This  pragma  has  no  argument, 
and  is  allowed  anywhere  a  pragma 
is  allowed.  It  specifies  that  the 
program  text  which  follows  the 
pragma  should  start  on  a  new 
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1 1  PRIORITY 


psr  r  r.OBjtci 


12  SHARED 


page  (if  the  compiler  is  currently 
producing  a  listing). 

Takes  a  static  expression  of  the  pre¬ 
defined  integer  subtype  PRIORITY 
ns  the  single  argument.  This 
pragma  is  only  allowed  within 
the  specification  of  a  task  unit  or 
immediately  within  the  •  jtermost 
declarative  part  of  a  main  program. 
It  specifies  the  priority  of  (he  task 
(or  task.-  of  the  task  type)  or  the 
priority  of  the  main  program  (see 
9.8). 

Takes  an  internal  name  denoting 
an  obje. '  rod  optionally  takes  an 
external  designator  (the  name  of 
a  program  section)  and  a  size  (a 
VAX/VMS  Tinker  global  symbol 
whose  value  is  interpreted  as 
the  size  in  bytes  of  the  exported 
/imported  object)  as  arguments. 

This  pragma  is  only  allowed  at  the 
place  of  a  declarative  item  at  the 
outermost  level  of  a  library  package 
specification  o»-  body,  and  must 
apply  *o  a  w>.  .■  le  decl.nod  by  an 
eap  eclarative  item  of  the  same 
package  specification  or  body; 
the  variable  must  be  of  a  type  or 
subtype  that  has  a  constant  size 
at  compile  time.  This  pragma  is 
not  allowed  for  an  object  declared 
with  a  renaming  declaration,  and  is 
not  allowed  in  a  generic  unit.  This 
pragma  enables  the  shared  use  of 
objects  that  are  stored  in  overlaid 
program  sections  (see  13. 9a. 2. 3). 

Takes  the  simple  name  of  a  vari¬ 
able  as  the  single  argument.  This 


1-12  Implementation-Dependent  Pragmas 
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SIORAGL.L.MT 


14  SUPPRESS 

I 


pragma  is  allowed  only  for  a  vari¬ 
able  declared  by  an  object  decla¬ 
ration  and  who-v  type  is  a  scalar 
or  access  type;  the  variable  decla¬ 
ration  and  the  pragma  must  both 
occur  (in  this  order)  in. mediately 
within  the  same  declarative  part  or 
package  specification.  This  pragma 
specifies  that  every  read  or  update 
of  the  variable  is  a  synchroniza¬ 
tion  point  for  that  variable.  An 
implementation  must  restrict  the 
objects  for  .iiich  this  pragma  is 
allowed  to  objects  for  which  each  ol 
direct  reading  and  direct  updating 
is  implemented  •  m  indivisible 
operation  (see  '>  11). 

VAX  Ada  does  not  suppo.t  pragma 
SHARED  (see  VOLATILE) 

Takes  a  numeric  literal  as  the 
single  argument.  This  pragma 
is  only  allowed  at  the  start  ot 
a  compilation,  before  the  first 
compilation  "nit  (if  any)  of  the 
compilation.  The  eff  t  of  this 
pragma  is  tc  .he  valve  of  the 
specified  numeric  literal  for  the 
definition  of  the  named  number 
STORAGE. UNIT  (see  13.7). 

In  VAX  Ada,  the  only  argument 
allowed  for  this  pragma  is  eight  (8). 

Takes  as  arguments  the  identifier 
of  a  check  and  optionally  also 
the  name  of  either  an  object,  a 
type  or  subtype,  a  subprogram,  a 
task  unit,  or  a  generic  unit.  This 
pragma  is  only  allowed  either  im¬ 
mediately  within  a  declarative  part 
or  immediately  within  a  package 


Implementation-Dependent  Pragmas  1-13 
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SUPPRESS.  ALL 


15  SYSTEM.  NAME 


specification.  In  the  latter  case,  the 
only  allowed  form  is  with  a  name 
that  denotes  an  entity  (or  several 
overloaded  subprograms)  declared 
immediately  within  the  package 
specification.  The  permission  to 
omit  the  given  check  extends  from 
the  place  of  the  pragma  to  the  end 
of  the  declarative  region  associated 
with  the  innermost  enclosing  block 
statement  or  program  unit.  For  a 
pragma  given  in  a  package  specifi¬ 
cation,  the  permission  extends  to 
the  end  of  cope  of  the  named 
entity. 

If  the  pragma  includes  a  name,  the 
permission  to  omit  the  given  check 
is  further  restricted:  it  is  given  only 
for  operations  on  the  named  object 
or  on  all  objects  of  the  base  type 
of  a  named  type  or  subtype;  for 
calls  of  a  named  subprogram;  for 
activations  of  tasks  of  the  named 
task  type;  or  lor  instantiations  of 
the  given  generic  unit  (see  11.7). 

VAX  Ada  does  tv  support  pragma 
SUPPRESS  (see  SUPPRESS  *ALL). 


This  pragma  has  no  argument 
and  is  only  allowed  following  a 
compilation  unit.  This  pragma 
specifies  that  all  run-time  checks  in 
the  unit  are  suppressed  (see  11.7). 

Takes  an  enumeration  literal  as 
the  single  argument.  This  pragma 
is  only  allowed  at  the  start  of 
a  compilation,  before  the  first 
compilation  unit  (if  any)  of  the 
compilation.  The  effect  of  this 
pragma  is  to  use  the  enumeration 
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TASK.  STORAGE 


TIME.  SLICE 


literal  with  the  specified  identifier 
for  the  definition  of  the  constant 
SYSTEM.  NAME.  This  pragma 
is  only  allowed  if  the  specified 
identifier  corresponds  to  one  of  the 
literals  of  the  type  NAME  declared 
in  the  package' SYSTEM  (see  13.7). 

Takes  the  simple  name  of  a  task 
and  a  static  expression  of  some 
integer  type  as  arguments.  This 
pragma  is  allowed  anywhere  that 
a  task  storage  specification  is  al 
lowed;  that  is.  the  declaration  of 
the  task  type  to  which  the  pragma 
applies  and  the  pragma  must  both 
occur  (in  this  order)  immediately 
within  the  same  declarative  part, 
package  specification,  or  task  spec¬ 
ification.  The  effect  of  this  pragma 
is  to  use  the  value  of  the  expres¬ 
sion  as  the  number  of  :,U  >age  units 
(bytes)  to  be  allocated  as  guard 
storage.  The  value  is  rounded  up 
to  an  integral  number  of  pages:  a 
value  of  zero  results  in  no  guard 
storage;  a  negative  value  cm-  ,  the 
pragma  to  be  ignored  f  ij  >a) 


Takes  a  static  expression  of 
the  predefined  fixed  point 
type  DURATION  (in  package 
STANDARD)  as  the  single  argu¬ 
ment.  This  pragma  is  only  allowed 
in  the  outermost  declarative  part 
of  a  library  subprogram,  and  at 
most  one  such  pragma  is  allowed 
in  a  library  subprogram.  It  has  an 
effect  only  when  the  subprogram  to 
which  it  applies  is  used  as  a  main 
program.  This  pragma  specifies  the 
nominal  amount  of  elapsed  time 
permitted  for  the  execution  of  a 
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task  when  other  tasks  of  the  same 
priority  are  also  eligible  for  exe¬ 
cution.  A  positive,  nonzero  value 
of  the  staiiv  expression  enables 
round-robin  scheduling  for  all  tasks 
in  the  subprogram;  a  negative  or 
zero  value  disables  it  (see  9.8a). 


Takes  a  title  or  a  subtitle  string,  or 
both,  in  either  order,  as  arguments. 
Pragma  TITLE  has  the  form: 

prtfnt  TITLE  (titling-option 
t.'.itling-option))  , 

titling-option  :* 

(TITLE  *>]  ttring.litnrnl 
‘I  (SUBTITLE  •>]  »tring_lit«r»l 

This  pragma  is  allowed  anywhere 
a  pragma  is  allow  .;u,  the  given 
string(s)  supersede(s)  the  default 
title  and/or  subtitle  portions  of  a 
compilation  listing. 


VOLA11LE  Take  the  simple  name  ot  a  van 

able  as  the  single  Argument.  This 
pragma  is  only  allowed  for  a  vari¬ 
able  declared  by  an  object  declara¬ 
tion.  The  variable  declaration  and 
the  pragma  must  both  occur  (in  this 
order)  immediately  within  the  same 
declarative  part  or  package  speci¬ 
fication.  The  pragma  must  appear 
before  any  occurrence  of  the  name 
of  the  variable  other  than  in  an  ad¬ 
dress  clause  or  in  one  of  the  VAX 
Ada  pragmas  IMPORT  OBJECT, 
EXPORT. OBJECT,  or  PSECT. 
OBJECT.  The  variable  cannot  be 
declared  by  a  renaming  declaration. 
The  VOLATILE  pragma  specifies 
that  the  variable  may  be  modified 
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asynchronously.  This  pragma  in¬ 
structs  the  compiler  to  obtain  the 
value  of  a  variable  from  memory 
each  time  it  is  used  (see  9.11). 
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Attachment  2 


VAX  Ada  Appendix  F 


NOTE 

This  appendix  is  not  part  of  the  standard  definition  of  the 
Ada  programming  language. 

Tlu  appendix  summarizes  the  implementation-dependent  characteris¬ 
tics  of  VAX  Ada  by 

•  Listing  the  VAX  Ada  pragmas  and  attributes 

•  Giving  the  specification  of  the  package  SYSTEM. 

•  Presenting  the  restrictions  on  representation  clauses  and  unchecked 
type  conversions 

•  Giving  the  conventions  for  names  d  icling  impleme  ■  \dion- 
dependent  component*  in  record  representation  clauses, 

•  Giving  the  interpretation  of  expressions  in  address  clauses. 

•  Presenting  the  implementation-dependent  characteristics  of  the 
input-output  packages. 

•  Presenting  other  implementation-dependent  characteristics. 
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f  '  Implementation-Dependent  Pragmas 

VAX  Ada  provides  the  following  pragmas,  which  are  defined  elsewhere 
in  the  text.  In  addition,  VAX  Ada  restricts  the  predefined  language 
pragmas  INLINE  and  INTERFACE,  and  provides  alternatives  to  prag¬ 
mas  SHARED  and  SUPPRESS  (VOLATILE  and  SUPPRESS.  ALL).  See 
Annex  B  for  a  descriptive  pragma  summary. 

•  AST. ENTRY  (see  9.12a) 

•  EXPORT. EXCEPTION  (see  l3.9a.3-2) 

•  EXPORT. FUNCTION  (see  13.9a  1  4) 

•  EXPORT. OBJECT  (see  13.9a.2.2) 

•  I'X^OKT.PROCFDURE  (see  13.9a  1.4) 

«  EXPORT  .VALUED.  PROCEDURE  .see  13.9a.  1.4) 

•  IMPORT. EXCEPTION  (see  1.3.9  v  El) 

•  IMPORT. FUNCTION  (see  I3.9a.l.l) 

•  IMPORT. OBJECT  (see  13.9a.2.1) 

•  IMPORT. PROCEDURE  (see  I3.9a.l.l) 

•  IMPORT. VALUED.PROCEDURE  (see  13.9a.  1.1) 

•  LONG. FLOAT  'see  3.5.7a) 

•  MAIN.S !  ORAGF  ftp r-  13.2b) 

•  PSECT  OiJjlXl  luce  I  3. 9a. 2. 3) 

•  SUPPRESS... LI.  (see  11.7) 

•  TASK. STORAGE  (see  13.2a) 

•  TIME. SLICE  (see  9.8a) 

•  TITLE  (see  B) 

•  VOLATILE  (see  9.11) 
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F.2  Implementation-Dependent  Attributes 


VAX  Ada  provides  the  following  attributes,  which  are  defined  else¬ 
where  in  the  text.  See  Annex  A  for  a  descriptive  attribute  summary. 

•  AST. ENTRY  (see  9.12a) 

•  BIT  (see  137.2) 

•  MACHINE,  SIZE  (see  13.7.2) 

•  NULL.  PARAMETER  (see  13.9a. 1.3) 

•  TYPE, CLASS  (see  13.7a.2) 

i-'.o  Specification  of  too  Package  System 

package  SYSTEM  la 

type  NAME  la  (VAX.VMS.  VAXELH) , 

SYSTEM JIAME  :  CMCtant  HAKE  •  VAX.VMS, 

aTORAi..-:_uniT  coaataat  -  8. 

MEMORY. SIZE  coaataat  *  2--31-1 . 

MAX. I1IT  coaataat  -  2«»31-1, 

MIH.IHT  coaataat  *  -(2«*31). 

MAX.DIui: >  coaataat  «  33. 

•YU.NANTISSA  coaataat  *31, 

•  i  ;W... DELTA  coaataat  >  ]  0«(-30). 

■ ick  coaataat  «  10  o*«(-2) . 

a..  .  HSIORITY  <1  INTEGER  raaga  0  '5. 

—  Addraaa  type 

type  ADDRESS  la  private, 

ADDRESS. ZERO  :  coaataat  ADDRESS ; 

faactloa  (LEFT  ADDRESS.  RIGHT  INTECER)  ratura  ADDRESS, 

faactloa  (LEFT  :  INTEGER,  RIGHT  ADDRESS)  ratsra  ADDRESS, 

faactloa  (LEFT  :  ADDRESS.  RIGHT  ADDRESS)  rotsra  INTEGER, 

faactloa  (LEFT  ADDRESS.  RIGHT  INTEGER)  retire  ADDRESS. 

—  faactloa  (LEFT.  RIGHT  ADDRESS)  rotara  BOOLEAN, 

—  faactloa  */«■  (LEFT.  RIGHT  ADDRESS)  rotara  BOOLEAN, 

faactloa  •<*  (LEFT.  RIGHT  ADDRESS)  rotara  BOOLEAN, 

faactloa  •<«*  (LEFT,  RIGHT  ADDRESS)  rotara  BOOLEAN, 

faactloa  •>*  (LEFT.  RIGHT  ADDRESS)  rotara  BOOLEAN, 

faactloa  ■>■>  (LEFT.  RIGHT  ADDRESS)  rotara  BOOLEAN. 
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Mot*  tkat  bocauaa  ADDRESS  it  a  private  typa 

tha  function#  "**  and  */=*  ara  alraady  availabla  and 

do  not  kva  to  ba  explicitly  dafinad 


(•aarle 

typa  TARGET  la  private. 

Sanction  FETCH. FROM. ADDRESS  (A  :  ADDRESS)  ratnrn  TARCET, 

(Marie 

typa  TARGET  la  prlvmta. 

procedure  ASSIGtl.TQ. ADDRESS  (A  :  ADDRESS,  T  TARGET), 

typa  TYPE. CLASS  la  (TYPE .CLASS .ENUMERATION . 

1'YPE.CLASS.  INTEGER, 

TYPE.CLASS. FIXED .POINT , 

TYPE.CLASS. FLOATING. POINT , 
TYPE.CLASS.  ARRAY . 

TYPE.CLASS. RECORD. 

TYPE.CLASS. ACCESS , 

TYPE.CLASS.TASR. 

TYPE.CLASS. ADDRESS) , 


VAX  Ada  floating  point  typa  daeXarationa  for  tha  VAX 
hardaara  floating-point  data  typea 

typa  O.FLOAT  la  implementation  defined. 
typa  F  .FLOAT  la  implementation  defined, 
typa  G  .FLOAT  la  impkmentation_defined, 
typa  H  .FLOAT  la  implementation. defined, 

--  AST  kandlar  typo 

typa  AST  .HANDLER  la  Halted  private . 

NO. AST. HANDLER  eoaatMt  AST.HAHDLER. 

--  Hon -Ada  exception 

NOD.ADA. ERROR  axcoptlan. 

--  VAX  kardaara-oriantod  typa#  and  fnnetiona 

typa  BIT. ARRAY  la  array  (INTEGER  raa(a  <»)  of  BOOLEAN, 


pragaa  PACK (BIT. ARRAT) , 

aaktypa  BIT. ARRAY. 8  la  BIT.ARRAT 

(0 

Y) 

aaktypa  BIT.ARRAT. 16  la  BIT.ARRAT 

(0 

IS) 

aabtypa  BIT. ARRAY. 32  la  BIT.ARRAT 

(0 

3!) 

aaktypa  BIT.ARRAT.M  la  BIT.ARRAT 

(0 

•3) 

typa  UNSIGNED .BYTE  la  ranga  0 
far  UUSICNED .BYTE 'SIZE  aaa  8. 

36S. 
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foactloa  ■•of  (LEFT  :  UNSIGNED .BYTE)  rotirs  UNSIGNED.BYTE . 

?>»CtV..  'oad*  (LEFT.  RICHT  UNSICNED.BYTE)  rotor*  UNSIGNED.BYTE. 

(uctlM  *or*  (LEFT.  RICHT  UNSICNFO.BYTE)  tattfl  UNSICIIED.BYTE, 

foactloa  'roc-  (LEFT.  BICHT  UNSIGNED.BYTE)  return  UNSIGNED.BYTE, 

foactloa  TO.UHSIGHED.BYTE  (LEFT  BIT.ARRAY.8)  ntiri  UNSIGNED.BYTE, 
foactloa  TO.BIT.ARRAY.S  (LEFT  :  UHSIGHED.BYTE)  HUri  BIT.ARRAY.8. 

UHSICNED.BYTE.ARRAY  1*  UIi;  (INTEGER  ru|l  <>)  of  UHSIGHED.BYTE , 

t7>«  UBSICHED.VORD  1*  TU|l  0  6BS3S 
for  UHSICNED. WORD* SIZE  MO  IB. 

fMCtlOO  '<•  •  (LEFT  ;  UNSIGNED  .WORD)  rotor*  UNSIGNED.  WORD ; 

foactloa  "and  ‘  (LEFT.  RICHT  UNSIGNED  .WORD)  rotar*  UNSIGNED. WORD; 
faaetlo*  *or  •  LEFT.  RICHT  :  UNSIGNED .WORD)  rotor*  UNS1GUED.W0RD, 

foactloa  *xor*  (LEFT.  RICHT  UHSIGNED.VORD)  .  >»ra  UNSlGli".U_wn»D 

foactloa  TO.UNS ’CNED.WORD  (LEFT  BIT.ARRAY.16)  rotors  OnSIGUET.  j..U, 
foactloa  T0.BIT.m*Y_16  (LEFT  UNSIGNED. WORD)  rotors  BIT.ARRAY.i6, 

typo  UNSIGNED .WORD. ARRAY  la  array  (INTEGER  raafO  <>)  of  UNSIGNED. WORD, 
typo  UNSICNED.LODCWORD  It  r**fO  HIH.IHT  MAI. HIT. 

fuettia  -tot*  (LEFT  OTISIGNEO.LONCWORD)  rotors  UIISICNED.LONCWORD. 

foactloa  *asd*  (LEFT.  RICHT  UNSIGNED.LOIIGWORD)  rotors  UNSIGIIED.LPNGWORD , 

foactloa  “or*  (LEFT,  RIGHT  UNSIGNED .LOUGWORD)  rotors  UNSICNED.LONCWORD; 

foactloa  *xor"  (LEFT,  RICHT  UHSICNED.LOHCVOPC:  rotor*  UNSIGNED. LDNCWORD , 

foactloa  TO.UNS ICNED.LONGWORD  (LEFT  BIT.ARRAY.32) 
rotora  unsigned. loncwgrd, 

foactloa  T0.B1T_ARRAY.3G  (LEFT  UNSIGNED.LOIIGWORD)  roU»«  MTT  .ARRAY .32. 

typo  UNSIwUED.LONCVORD. ARRAY  la 

array  (INTECER  raafo  <>)  of  OTISIGNED.LONGWORD. 

typo  UBSICNED.QUADWORO  la  record 
10  UNSICNED.LOUCWQRD . 

LI  UISICDED.LOUGWORD. 

•ad  record, 

foactloa  *aot*  (LEFT  UNSIGNED. QUADVORD)  rotor*  UNSIGNED. QUADVORD ; 

foactloa  ■aad*  (LEFT.  RICHT  OTISICUED.QUADWORD)  rotor*  UNSICHED.GUAD'IORD; 

faactlaa  -or"  (LEFT.  RICHT  UNSIGNED. QUADVDRO)  rotora  UNSICHED.BUADWORD, 

foactloa  "xor*  (LEFT.  RIGHT  OTISICHED.QUADWORD)  rotora  OTISICNED.QUADWORD , 

foactloa  TO.UNS ICNED.QUADWORD  (LEFT  BIT.ARRAY.tA) 
rotora  unsiCNED.guADWORD, 

faactlaa  TO.BIT.ARRAT.dd  (LEFT  UNSICNED.GUADWORD)  rotora  BIT. ARRAY. 64 , 

typo  UNSIGNED .GUADWORD .ARRAY  la 

array  (INTEGER  ra*|o  <»  of  UNSIGNED. QUADVORD. 
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tllCtlM  TO.A-DRESS  (I 
f (action  TO. ADDRESS  (X 
Inaction  TO. ADDRESS  (I 


INTEGER) 

UNSIGNED. LONGVORD) 
untvt  rtal_  integer) 


ratara  ADDRESS, 
ratorn  ADDRESS, 

rrt’-rt  ADDRESS 


.•.Action  TO.IHTECER  (A  ADDRESS) 

Enaction  TO.UHSICHED.LOHCVORD  (X  ADDRESS) 


ratara  INTEGER, 

ratara  UNSICHED.LONCVORD, 


Enaction  TO.ONS IGHED .LOIICVORD  (X  :  AST. HANDLER)  ratara  UNSIGHED.LOHGVORD; 


Coavaatioaal  aaaaa  for 

otatic  anbtypoa  of  typo 

UNSIGNED 

_LOHC 

aaktypa 

UNSIGNED. 1 

la 

UNSIGHED.LOHGVORD 

riBfi 

0 

2* 

1-1; 

aabtypa 

UNSICNED.2 

la 

UNSIGNED. LONGVORD 

m|i 

0 

2» 

2-1, 

aabtypa 

UtlSl  ’.UED.S 

la 

UNSIGNED .LONGVORD 

ri»|i 

0 

2* 

•i-1 , 

aabtypa 

UHS  0.4 

la 

UNSIGNED. LONGVORD 

m|« 

0 

2» 

4-1; 

aabtypa 

UN*  ’i'lED.S 

la 

UNSIGNED. LONGVORD 

m|i 

0 

2* 

5-1 

iiLlypa 

UNSIGNED. 6 

la 

UNSIGNED. LONGVORD 

ru|i 

0 

2* 

6-1, 

I'l’.'.'.pa 

UNSICNED.7 

la 

UNSIGNED .LONGVORD 

ri&l« 

0 

2« 

7-1, 

aabtypa 

UNSIGNr,5  A 

la 

UNSIGNED.LONGVORD 

rangt 

0 

2« 

8-1. 

aabtypa 

UNSIGIitu.9 

la 

UNSICNED. LOIICVORD 

riA|i 

0 

2* 

9-1, 

aabtypa 

UHSICHED. 10 

la 

UNSIGNED. LOIICVORD 

ri&|« 

0 

2* 

10-1, 

aabtypa 

UNSIGHED.il 

la 

UNSIGNED.LONGVORD 

ru|i 

0 

«  * 

11-1. 

aabtypa 

UNSIGNED. 12 

la 

UNSICNED.LOHGVORD 

riAp 

0 

2* 

12-1, 

aabtypa 

UNSIGNED. 13 

la 

UNSICHED.LONCVORD 

riA|t 

0 

2* 

13-1; 

aabtypa 

UNSIGNED. 14 

la 

UNSIGNED  .LOIICVORD 

ria|i 

0 

2* 

14-1; 

aabtypa 

UNSIGNED. 16 

la 

UNS IGUED.LONC VORD 

rup 

0 

2* 

15-1, 

n<ibt>(-s. 

"NSIGNED. Id 

la 

UNSIGHED.LOHGVORD 

ru|« 

0 

2» 

16-1; 

aabtypa 

UNSIGNED. 17 

la 

UNSIGNED.LONGVORD 

ru|i 

0 

2» 

17-1, 

aabtypa 

UHSICHED. 16 

la 

UNSIGNED.LONGVORD 

mp 

0 

2* 

18-1  . 

a<ibtyp« 

UNSIGNED. 10 

la 

UNSIGNED.LONGVORD 

rug* 

0 

2« 

19-1. 

a«b»yj« 

UNS IGHED. 20 

la 

UNSICNED  '.nilGVORD 

rugi 

0 

2» 

20-1. 

aabt>i>t 

UIISIGHED.21 

la 

UNSIGNED.LONGVORD 

:4Ag« 

0 

2* 

21-1; 

aabtypa 

UNSIGNED. 22 

la 

UNS  IGtlED  .LOIICVORD 

rug« 

0 

2* 

22-1; 

aabtypa 

UNSIGNED. 23 

la 

UNSIGNED.LONGVORD 

rugi 

0 

2* 

23-1, 

aabtypa 

UNSIGIIED.24 

la 

UNSIGHED.LOHGVORD 

rugi 

0 

2< 

24-1, 

aabtypa 

UNSIGNED. 26 

la 

UNSIGHED.LOHGVORD 

mg« 

0 

2* 

26-1. 

aabtypa 

UHSICHED. 26 

la 

UNSIGNED.LONGVORD 

rugi 

0 

2» 

26-1; 

aabtypa 

UHSICHED.27 

la 

UNSIGNED.LONGVORD 

rugi 

0  . 

2« 

27-1; 

aabtypa 

UNSIGNED. 28 

la 

UNSIGNED.LOHCVORD 

rugi 

0  . 

2* 

28-1. 

aabtypa 

UNSIGNED. 20 

la 

UNSICNED.LOHGVORD 

ru|i 

0  . 

2* 

29-1, 

aabtypa 

UHSICHED. 30 

la 

UNSIGNED.LOHCVORD 

rugi 

0  . 

2* 

30-1. 

aabtypa 

UUSIGNED.31 

la 

UNS IGHED .LONG  VORD 

rugi 

0  . 

2* 

31-1; 

Faactlen  for  obtaining 

global  aymbol  vnlaaa 

Enaction  IMPORT .VALUE  (SYMBOL  STRING)  ratara  UNSIGNED. LDNCVORD, 


—  VAX  davlca  and  procoaa  ragiotar  oparationa 


faaetlaa  READ.RECISTER  (SOURCE 
faactlaa  READ.RECISTER  (SOURCE 
faaetlaa  READ.RECISTER  (SOURCE 


UNSIGIIED.BYTE) 
UNSIGNED. VORD) 
UNSIGNED. LONGVORD) 


ratara  UNSIGIIED.BYTE . 
ratara  UNSICNED.VORO, 
ratara  UNSICHED.LONCVORD. 
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prscsdars  *RITF.AECISTER(SOURCE  UTISICHED.BTTE. 

TARGET  Mt  UIISICIlFD.Bm)  . 
ptS VRITE.RFGJ  a  TER (SOURCE  UHSICHED. AJAD , 

TARGET  sat  UNSIGNED. WORD) , 
s.  '#  miTE.RECISTEKSOURCE  UHSICIIED.LOHCVORD , 

TARCET  bat  UHSIGHED.LONCVOAD) . 

foictloa  MFPR  (REC.HUNBER  .  INTEGER}  rstara  UNSICNED_LONC*ORD. 
prscsdars  NTPR  (REC.HUNBER  INTEGER. 

SOURCE  UMS IGNED. LONCVORD) . 

VAX  intsrlocAad -  instruction  procsdurss 

prscsdars  CLEAR _IIITERI.0CV.k1  (BIX  la  SBt  BOOLEAN, 

OLD.VALUE  sat  B00LEA1O  , 

procedure  SET . INTERLOCKED  (BIT  la  sat  BOOLEAII. 

OLD.VALUE  sat  BOOLEAII}. 

./pe  ALIGNED. SHORT  IHTECER  la 

record 

VALUE  SHORT.  IHTECER  =  0. 

sad  rscsrd . 

far  ALIGHED. SHORT. IHTECER  ass 
rscsrd 

at  asd  2. 
sad  rscsrd . 

procedure  ADD. INTERLOCKED  (ADDEND  la  SHORT.IIITEGER , 

AUGEND  la  sat  ALICNED.SHORT. ID TEGER ; 

SIGN  :  sat  IHTECER}. 

*y? S  IHSQ.STAfUS  Is  (OK.IIQT  .FIRST,  FAIL.HO.LOCK .  OK.FIRST)  ; 

.1  RENO. STATUS  la  (OK.IIOI.EMPTT,  FATL.B0.10CI . 

DK.ENPTT .  F»  :..*AS.ENPTT) . 

r»oj«dars  INSOHI  (ITEM  .  la  ADDRESS. 

HEADER  la  ADDRESS, 

STATUS  :  sat  INSQ.STATUS) , 

prscsdars  RENOHI  (HEADER  :  la  ADDRESS, 

ITEM  :  sat  ADDRESS. 

STATUS  :  sat  RENQ.STATUS) , 

prscsdars  INSQTI  (ITEM  :  la  ADDRESS. 

HEADER  :  la  ADDRESS; 

STATUS  :  sat  INSQ.STATUS} , 

prscsdars  REHQTI  (HEADER  ;  la  ADDRESS. 

ITEM  :  sat  ADDRESS. 

STATUS  sat  RENQ.STATUS); 

private 

—  Rot  shosa 
sad  STSTEN, 
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F.4  Restrictions  on  Representation  Clauses 


The  representation  clauses  allowed  in  VAX  Ada  are  lerv'h  enumera¬ 
tion,  record  representation  and  address  clauses. 

In  VAX  Ada,  a  representation  clause  for  a  generic  formal  type  or  a 
type  that  depends  on  a  generic  formal  type  is  not  allowed.  In  addition, 
a  representation  clause  for  a  composite  type  that  has  a  component 
or  subcomponent  of  a  generic  formal  type  or  a  type  derived  from  a 
generic  formal  type  is  not  allowed. 


F.5  Conventions  for  Implementation-Generated  Names 
Denoting  Implementation-Dependent  Components  in 
Record  Representation  Clauses 

VAX  Ada  does  not  allocate  implementation-dependent  components  in 
records. 


F.6  Interpretation  of  Expressions  Appearing  in  Address 
Clauses 


Expression  -  .ppearing  in  address  clauses  must  be  of  the  type 
|  ADDRESS  defined  in  package  SYSTEM  (see  13.7a.  1  and  F.3).  In  VAX 

i  Ada,  values  of  type  SYSTEM. ADDRESS  are  interpreted  as  integers  in 

|  the  range  O..MAX_INT,  and  they  refer  to  addresses  in  the  user  half  of 

i  the  VAX  address  space. 

VAX  ^da  allows  address  clauses  for  variables  (see  13.5. 

VAX  Ada  does  not  support  interrupts. 

! 

i  _ 

F.7  Restrictions  on  Unchecked  Type  Conversions 

VAX  Ada  supports  the  generic  function  UNCHECKED, CONVERSION 
with  the  restrictions  given  in  section  13.10.2. 
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f  «  Implementation-Dependent  Characteristics  of 
Input-Output  Packages 

The  VAX  Ada  predefined  packages  and  their  operations  are  imple 
mented  using  VAX  Record  Management  Services  (RMS)  file  orga¬ 
nizations  and  facilities.  To  give  users  the  maximum  benefit  of  the 
underlying  RMS  input-output  facilities,  VAX  Ada  provides  pack¬ 
ages  in  addition  to  SEQUENTIAL  IO,  DIRECT  IO,  TEXT  IO,  and 
10_ EXCEPTIONS,  and  VAX  Ada  accepts  VAX  RMS  File  Definition 
Language  (FDL)  statements  in  form  strings.  The  following  sections 
ummarize  the  implementation-dependent  characteristics  of  the  VAX 
\da  input-output  packages.  The  VAX  Ada  Run-Time  Reference  Manual 
discusses  those  characteristics  in  more  detail. 


F.8.1  Additional  VAX  Ada  Input-Output  Packages 

In  addition  to  the  language-defined  input-output  packages  (SEQUENTIAL 
IO,  DIRECT.  IO,  and  TEXT.IO),  VAX  Ada  provides  the  following 
input-output  packages: 

•  RELATIVE. IO  (see  14.2a.3) 

•  INDEXED. IO  (see  14.2a.5) 

•  SEQUENTIAL. MIXED. IO  (see  14.2b.4) 

•  DIRECT. MIXED. IO  (see  14.2b.6) 

•  RELATIVE.  MIXED.  IO  (see  14.2b.8) 

•  INDEXED.  MIXED.  IO  (see  14.2b.10) 

VAX  Ada  does  not  provide  the  package  LOW.  LEVEL.  IO. 


F.8.2  Auxiliary  Input-Output  Exceptions 

VAX  Ada  defines  the  exceptions  needed  by  packages  RELATIVE  IO, 
INDEXED  IO.  RELATIVE  MIXED  IO,  and  INDEXED  MIXED  IO  in 
the  package  AUX.IO. EXCEPTIONS  (see  14.5a). 
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F.8.3  Interpretation  of  the  FORM  Parameter 

The  value  of  the  FORM  parameter  for  the  OPEN  and  CREATE  proce¬ 
dures  of  each  input-output  package  may  be  a  string  whose  value  is  in¬ 
terpreted  as  a  sequence  of  statements  of  the  VAX  Record  Management 
Services  (RMS)  File  Definition  Language  (FDL),  or  it  may  be  a  string 
whose  value  is  interpreted  as  the  name  of  an  external  file  containing 
FDL  statements. 

The  use  of  the  FORM  parameter  is  described  fi :  ,-ach  input-output 
package  in  chapter  14.  For  information  on  the  default  FORM  param 
eters  for  each  VAX  Ada  input-output  package  and  for  information  on 
using  the  the  FORM  parameter  to  specify  external  file  attributes,  see 
the  VAX  Aiiti  Run-Time  Reference  Manual.  For  information  on  FDL,  see 
the  Guide  to  VAW'MS  File  Applications  and  the  lAX  V.VfS  File  Definition 
Language  Facility  Reference  Manual. 


F  8.4  Implementation-Dependent  Input-Output  Error  Conditions 

As  specified  in  section  14.4,  VAX  Ada  raises  the  following  language- 
defined  exceptions  for  error  conditions  occurring  during  input-output 
operations:  STATUS  ERROR,  MODE  ERROR,  NAME. ERROR,  USE. 
ERROR,  END.  ERROR,  DATA.  ERROR,  and  LAYOUT. ERROR.  In 
addition.  VAX  Ada  raises  the  following  exceptions  for  relative  and 
indexed  input-output  operations:  LOCK. ERROR,  EXISTENCE. ERROR, 
and  KEY  .ERROR.  VAX  Ada  does  not  raise  the  language-defined 
exception  DEVICE. ERROR;  device-related  error  conditions  cause  USE. 
ERROR  to  be  raised. 

USE. ERROR  is  raised  under  the  following  conditions: 

•  In  all  CREATE  operations  if  the  mode  specified  is  IN.  FILE. 

•  In  all  CREATE  operations  if  the  file  attributes  specified  by  the 
FORM  parameter  are  not  supported  by  the  package. 

•  In  the  WRITE  operations  on  relative  or  indexed  files  if  the  element 
in  the  position  indicated  has  already  been  written. 

•  In  the  LFPDATE  and  DELETE.  ELEMENT  operations  on  relative  or 
indexed  files  if  the  element  to  be  updated  or  deleted  is  not  locked. 

•  In  the  UPDATE  operations  on  indexed  files  if  the  specified  key 
violates  the  external  file  attributes. 
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•  In  the  SET. LINE. LENGTH  and  SET. PAGE. LENGTH  opera¬ 
tions  on  text  files  if  the  lengths  specified  are  inappropriate  for  the 
external  file. 

•  If  the  capacity  of  the  external  file  has  been  exceeded. 

NAME.ERROR  is  raised  as  specified  in  section  14.4:  by  a  call  of 
a  CREATE  or  OPEN  procedure  if  the  string  given  for  the  NAME 
parameter  does  not  allow  the  identification  of  an  external  file.  In 
VAX  Ada,  the  value  of  a  NAME  parameter  can  be  a  string  that  denotes 
a  VAX/VMS  file  specification  or  a  VAX  VMS  logical  name  (in  either 
case,  the  string  manes  an  c-'ternal  file)  For  a  CREATE  procedure,  the 
value  of  a  NAME  pvameter  can  also  h<  a  null  string,  in  which  case  it 
names  a  temporary  external  tile  that  is  deleted  when  the  main  program 
exit;.  The  VAX  Ada  11, m- rime  Reference  Mninml  explains  the  naming  i 
e'fi  .r.al  files  in  more  detail. 


F.9  Other  Implementation  Characteristics 

Implementation  characteristics  having  to  do  with  the  definition  of  a 
main  program,  various  numeric  ranges,  and  implementation  limits  are 
summarized  in  the  following  sections. 


F.9.1  Definition  of  a  Main  Program 

A  library  unit  can  be  used  as  a  main  program  provided  it  has  no 
formal  parameters  and,  in  the  case  of  a  function,  if  its  returned  value 
is  a  discrete  type.  If  the  main  program  is  a  procedure,  the  status 
returned  to  the  VAX/VMS  environment  upon  normal  completion  of  the 
procedure  is  the  value  one.  If  the  main  procedure  is  a  function,  the 
status  returned  is  the  function  value.  Note  that  when  a  main  function 
returns  a  discrete  value  whose  size  is  less  than  32  bits,  the  value  is  zero 
or  sign  extended  as  appropriate. 
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F.9.2  Values  of  Integer  Attributes 

The  ranges  of  values  for  integer  types  declared  in  package  STANDARD 
are  as  follows: 

S.  i  'i;  I _SHORT_ INTEGER  -128  127 

SHORT.1NTECER  -32768  32767 

INTECER  -2147483648  2147483647 

For  the  packages  DIRECT  IQ,  Kill  \TIVE  IO,  SEQUENTIAL. 

MIXED. IO,  DIRECT. MIXED. IO,  RELATIVE. MIXED. IO,  INDEXED. 
MIXED  IO.  and  TEXT  IO,  the  rangi  of  values  for  types  COUNT  and 
POSITIVE. COUNT  are  as  follows:" 

COUNT  0  2147483647 

POSITIVE.*.  OUNT  I  2147483647 

For  the  package  TEXT.IO,  the  range  of  values  for  the  type  FIELD  is  as 
follows: 

FIELD  II  2147483647 


F.9.3  Values  of  Floating  Point  Attributes 


F.  Floating  Value 
and  Approximate 

Attribute  Decimal  Equivalent 

6 


DIGITS 

MANTISSA 

EMAX 

EPSILON 

approximately 

SMALL 

approximate!) 

LARGE 

approximately 


21 

84 

1h»(l  l<HXMHKI*e-4 
9  53674 EH  17 

16*0  H(IOUJIIK)*e-21 
2  58W4E-26 

16*11  FFFF.F80*e-2l 
IV3428E  +25 


2-12  VAX  Ada  Appendix  F 


I 

I 


Attribute 

F.FIoating  Value 
and  Approximate 

Decimal  Equixalent 

SAFE.EMAX 

127 

'  . F  L  SMALL 

l6*0.1IHHMNK)*e-31 

app.  oximately 

2.93874E-39 

SAI  L.  '  ARCE 

1<.»0  7FFF.FC(l*e-32 

<ii  ;ii  xurate'v 

1  70141E  *38 

FIRST 

-1b*0  7FFF_FF8*e*32 

app  ■  nateh 

-1 .70 1 41 H  *38 

uAsr 

1b*0.7FFF_FF8#e  +  3^ 

tfpproxnr,,  . 

1  70141 E  + 38 

"ACHINF.P.ADIX 

2 

.  h  •  N  E_  MANTISSA 

24 

MACHINE. EM  \X 

127 

MACHINE.EMIN 

-127 

MACHINE.  ROUNDS 

T  rue 

MACHINF. OVERFLOWS 

True 

D_  Floating  Value 


Attribute 

ind  Approximate 

Decimal  Equivalent 

DICITs 

V 

MANTISS- 

31 

EMAX 

124 

EPSILON 

16*0  4tMX)_HOOO_Ot)»X)_t>tH)-e-7 

approximately 

9  3132257461548E-10 

SMALL 

16*tl.8(HKMI(HK).0(XK1.(KIII*e-31 

approximately 

2  35(  WS871I16446E  -38 

LARGE 

16*11.  FFFF_FFFEJXIIMMIIIlM>e+ 31 

approximately 

2  1 267647922655 E  +  37 

SAFE.EMAX 

127 

SAFE.SMALL 

l6*0.1tWtM1tl00.tltHMMIt)0*e-3l 

approximately 

0387358771 1557 1 -39 
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•V 

>'tl 


1,5  <1 

yA 

m 


\ 


Attribute 


SAFE.  LARGE 
approximately 

.  iRbi 

approximaiely 

LAST 

approx,  malei . 

M.-v  RADIX 

UtlNE.  MANTISSA 
\1ACH1NE_EMAX 
MACH1NF  EMIN 
IV'1.  NE_ ROUNDS 
MACHINE  OVERFLOWS 


Attribute 


DIGITS 

MANTr-‘" 


cOSILON 

approximate!) 

SMALL 

approximately 

LARGE 

approximately 

SAFE.EMAX 

SAFE.SMALL 

approximately 

SAFE. LARGE 
approximately 


D_  Floating  Value 
and  Approximate 
Decimal  Equivalent 


1b»0.7FFF_FFFF.0(in0_000+e  +  32 
1.7014118338124E  -38 

-16»0.7FFF_  FFFF.  FFFF.  FFN«e  +  32 
-V  7014 1 l834nU47E  *  38 

16*0  7FFF  FFFF_FFFF.FF8*e»  32 
1 70141 1S34nll47E  + 38 


G_  Floating  Value 
and  Approximate 
Decimal  Equivalent 


||.*0  4000. 0000. 0000_00»e-12 
8  8817841V7II01E-016 
16*0  80tKMl(IIIO.tKKIO_OU*e-51 

1  V44642274332EAI62 

16*0  FFFF. FFFF. FFFF.  EO«e  +  51 

2  571101187081 4E  +  061 


16*0. 1000. 0000. 0000. 00*e-255 
5 . 562684646268E -3<  N 

16*0  7FFF. FFFF. FFFF. F0*e  + 256 
8  **884<i5674312E  +307 


\w  -*  V 
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I 


I 


i 


Attribute 

G_  Floating  Value 
and  Approximate 

Decimal  Equivalent 

FIRST 

approximate!  i 

-16*0  7FFF_FFFF_FFFF_FC*e  4-256 
-8  9XMio(.743l2fc  *  3(17 

LAST 

approximately 

lb«0  7FFF_Fm_FFFF_FC»e-  25u 

8  9884650743 12E- 307 

MACHINE.  RADIX 

2 

MACHINE  .MANTISSA 

53 

'  '  V'HINE.EMAX 

1023 

•  ull'.-JF  PM!N 

-1(123 

.'.ACHIi’.fc  .ROUNDS 

True 

OACHINE.OVERFLOVAS 

f  rue 

Attribute 

H.  Floating  Value 
and  Approximate 

Decimal  Equivalent 

DIGITS 

A3 

MANTISSA 

111 

EM  AX 

4-11 

EPSILO' 

approx  t  irately 

1 6rl  1  4(MHMMMNMKMKI_OOIin_(KNMMKMN)_INKM). 
7  w77754h44341222341177( 13397 E-4KI34 

,0*e-27 

-i  M  ALL 

approximately 

16*0  8tKKMKKKi.(HKKMHHMMKKMI_IHMMMKKMI_0»e-111 

1  1 0065662 1 463791 82109343 1 81 120936E  -0134 

>  ARCE 

approximately 

16*0  FFFF_FFFF_FFFF.FFFF_FFFF.FFFF. 
4  54274202f»8475430659332737993<KK)£  t-0133 

FFFE_0*e+  111 

SAFE.EMAX 

16383 

SAFE.SMALL 

approximately 

16*0. 1(KK)_(KMMI.IKMKI.(KKMI.(KKK)_(KMK)_(KKKI 
8  4(  15257857781 123370565669454331  14  4  E  -4933 

_0*e-4095 

SAFE. LARGE 
approximately 

16*0  7FFF_FFFF_FFFF.FFFF_FFFF.FFFF_I 

5  918657 47o78615882542879i>u331400E  -4931 

FFFF_0*e-409o 

FIRM 

approximately 

-16*0  7FFF.FFFF_FFFF_FFFF_FFFF.FFFF_FFFF_C»e  +  409(> 

-5  94H65747o786l5882542879063314tNIE  -4931 
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Attribute 

H.FIoating  Value 
and  Approximate 

Decimal  Equivalent 

LAST 

ap(  jx.  n.ately 

liv»0.7FFF_FFFF.  FFTr_  FFFF.FFFF_FFFF_FFFF.Oe  +  4000 

5  R4Sh5747(>780l5N»2542S79Wc331400E  +4V3I 

M  ACHI  NT RADIX 

2 

MACHINE.  MANTISSA 

I 13 

MACHINE.EMAX 

H»3S' 

MALHINE.EMIN 

- 1  (>383 

MACHINE. ROUNDS 

T  rue 

MACHINE. OVERFLi  V.S 

True 

F.9.4  Attributes  of  Type  DURATION 

The  values  of  the  significant  attributes  of  type  DURATION  are  as 
follows: 


Du  '  I  ION'  DELTA  I  (KHMHlEHM 


DURATION’  SMALL 
DURATION'  FIRST 
DLK  .'TON'  LAST 
DURATION’  LARCE 

l 

k 

I  ~~  —  —  -  —  - 

’  F.9.5  Implementation  Limits 

i 


-131(172  0000 
13107 1  WV4 

1  3in7l<*N43xuivM375E<-05 


Limit  Description 

32  Maximum  number  ot  formal  parameters  in  a  subprogram  or  entry 

declaration  that  are  ot  an  unconstrained  record  type 

120  Maximum  identifier  length  (numlvr  of  characters) 

120  Maximum  number  ot  characters  in  a  source  line 

245  Maximum  number  of  discriminants  for  a  record  type 
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Limit 


Description 


2-u< 

255 

1023 

4(N5 

32757 

■"^35 

6535 

<o” 

**535 

23l-l 


Maximum  numl'T  o!  torni.u  parameter*  in  an  entry  or  subprogram 
d>  . !  Motion 

Maximum  number  o»  dimension*  in  on  array  type 

Moximum  number  ot  librarc  units  and  subunits  m  o  compilation 

closure' 

Moxumim  number  nt  librarc  units  and  subunits  in  an  execution 
’osuie" 


Moximum  numlvr  ui  obie-  ts  dec  la  red  icith  PSEC.  T^ORJLC  T  pragmas 

Max  mum  number  Ot  enumeration  literals  in  an  enumeration  type 
u.imition 

•’'.•mum  numlvr  ot  characters  in  a  xalue  ot  the  predefined  type 

STRING 


Maximum  number  ot  frames  that  an  except:  in  ,an  propagate 
Maximum  numlvr  of  line*  in  a  source  tile 
Maximum  number  ot  bit*  in  am  ob|ec  t 


I  he  compilation  closure  of  a  >;iven  unit  is  the  total  set  ot  unit*  that  the  ipxen  unit 
depends  on.  directly  and  indirectly 

^The  execution  closure  of  a  >;iven  unit  is  the  compilation  clo*uir  p’u*  all  assoc lated 
secondary  units  (library  bodies  and  subumt*i 
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APPENDIX  C 


TEST  PARAMETERS 

f 

Certain  tests  in  ths  ACVC  Bake  use  of  implementation-dependent 
values,  such  as  the  maximum  length  of  an  input  line  and  invalid 
file  names.  A  test  that  makes  use  of  such  values  is  identified 
by  the  extension.  TST  in  its  file  name.  Actual  values  to  be 
substituted  are  identified  by  names  that  begin  with  a  dollar 
sign.  A  value  is  substituted  for  each  of  these  names  before 
the  test  is  run.  The  values  used  for  this  validation  are  given 
below. 


Name  and  Meaning 
•*»TG_ID1 

Identifier  of  sise  MAX.IN.LEN 
with  varying  last  character. 

$BIG_ID2 

Identifier  of  sise  KAX_XM_LKM 
with  varying  laet  character. 

«»IG_ID3 

Identifier  of  sise  MAX^IM.UDI 
with  varying  last  character . 

* -iG_ID4 

Identifier  of  sise  KAX.IM.LEM 
with  varying  last  character. 

|BlG_lirr_HM 

An  Integer  literal  of  value  2fi 
with  enough  leading  seroes  so 
that  it  is  MAX.IN.LIN  characters 
long. 


Value 

119  A's  and  a 


119  A's  and  a 
*2' 


119  A's  and  a 
*3'  in  the  middle 


119  A's  and  a 
'4'  in  the  middle 


Ilf  0's  and 

029t 


Xftlus 


I 


nftAnina 


$BIG_REAL.LIT 

ft 

A  r«a] .literal  that  can  b« 
•ithar  of  floating  or  fixad 
point  typa,  haa  valua  690.0,  and 
has  anough  laading  saroaa  to  be 
MAX_IN_LEK  charactara  long. 

•BLANKS 

Blanks  of  langth  MAX_IK_LEN  -  20 


■  *Rr  LAST 

V»« l JO  Of  CNT'LAST  in  TEXT.lO 
packaga. 


114  0'a  and 
69.0E1 


BLANKS 

2147483647 


$F  *TE  i~).ASCII_CHARS 

abcdafghijklmnopqratuwxyz !  •%?•  [\] A'  { } 

A  ng  litaral  containing  all 
th'  Cl I  charactara  with 

bla  graphics  that  ara  not 
r  basic  55  Ada  charactar 

.► 


$Fj.TLL_LT  8T 

valua  oi  Fiald'LABT  in  TEXT.XO 

ackaga. 

•FXLS.NAKS.NXTH.BAD.CBARS 

An  lllagal  axtamal  fila  naaa 
that  aithar  containa  invalid 
charactara  or  la  too  long. 

IFI  Lf_MAN*_WITH_lfI  LD.CARD.CNAR 
An  axtamal  fila  naaa  that 
aithar  containa  a  wild  card 
charactar  or  la  too  long. 

•ORBATER.TNAN.OURATXON 

A  unlvaraal  raal  valua  that  liaa 
batvaan  DURATION ' BABB ' LAST  and 
DURATION' LAfT  or  any  valua  in 
tha  ranga  of  DURATION 

•ORSATBR.TNAN.DURATION_RABB.LAfT 
Tha  unlvaraal  raal  valua  that  la 
graatar  than  DURATION 'BABB 'LAST. 


21474*3647 

X}] !•#$**-¥ 

XYX* 

100.000.0 

10  000  000.0 


•XLLBQAL(_BXTSRNAI<_FXU_JUINB 
Zllagal  axtamal  fila  naaa. 


BAD-CHARACTER* 


C-J 


Warn*  and  Meaning 

$ I LLEGAL.EXTERNAL.F I LE.NAME 2 

MUCH-TOO-LONG-NAME-FOR-A-FILE-MUCH 

A-FILE 

Illegal  axtamal  file  naaes. 

$INTEGER_FIRST 

The  universal  integer  literal 
expression  whose  value  is 
INTEGER' FIRST. 

$INTEGER_LAST 

The  « niversal  integer  literal 
expression  whose  value  is 
INTEGER 'LAST. 

$  LESS.THAN.DCRATION 

A  universal  real  value  that  lies 
between  DURATION 'BASE 'FIRST  and 
DURATION 'FIRST  or  any  value  in 
the  range  of  DURATION. 

$  LESS_THAN_DURATION_BASE_FIRST 

The  universal  real  value  that  is 
less  then  DURATION 'BASE 'FIRST. 

$MAX_DIGITS 

floating-point  types. 

IMAX.IN.LEM 

Maxiaua  input  line  length 
peraitted  by  the  iapleaentation. 

INANE  SHORT. 

A  naae  of  predefined  nuaerie 
type  other  than  FLOAT,  INTEGER, 

SHORT. FLOAT,  SHORT. INTEGER, 

LONG.FLQAT,  or  LONG.INTEGZR , 

INEG.BASED.INT 

A  based  integer  literal  whoee 
highest  order  nonsero  bit 
falls  in  the  sign  bit 
position  of  the  representation 
for  SYSTEM. KAX.ZNT. 

IRON _ASCI I .CHARITY FE 

An  enuaerated  type  definition 
for  a  oharaoter  type  whoee 
literals  are  the  identifier 
NO N.NULL  and  all  non-ASCZI 
characters  with  printable 
graphics. 


Value 

TOO-LONG-NAME-FOR- 

f 

-2147483648 

2147483647 

-100_000.0 

-10_000_000.0 

33 

120 

SHORT.INTEGER 

16#FFFFFFFE# 

(NON.NULL) 
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APPENDIX  D 


WITHDRAWN  TESTS 


Some  tests  are  withdrawn  from  the  ACVC  because  they  do  not 
conform  to  the  Ada  Standard.  When  testing  was  performed,  the 
following  19  tests  had  been  withdrawn  at  the  time  of 
validation  testing  for  the  reasons  indicated: 

.  B4A010C:  The  object_declaration  in  line  18  follows 

a  subprogram  body  of  the  same  declarative  part. 

.  BC3204C:  The  file  BC3204C4  should  contain  the  body 

for  BC3204CO  as  indicated  in  line  25  of  BC3204C3M. 

.  C35904A:  The  elaboration  of  subtype  declarations 

SFX3  and  SFX4  may  raise  NUMERI C_ERROR  (instead  of 
CON  S  TRAI NT_ERROR ) . 

.  C41404A:  The  values  of  'LAST  and  'LENGTH  are 

incorrect  in  IF  statements  from  line  74  to  the  end 
of  the  test. 

.  C48008A:  This  test  requires  that  the  evaluation  of 

default  initial  values  not  occur  when  an  exception 
is  raised  by  an  allocator.  However,  the  Language 
Maintenance  Committee  (LMC)  has  ruled  that  such  a 
requirement  is  incorrect  (AI-00397/01) . 

.  C32114A:  An  unterminated  string  literal  occurs  at 

line  62. 

.  B33203C:  The  reserved  word  "IS"  is  misspelled  at 

line  45. 

.  C34018A:  The  call  of  function  G  at  line  114  is 

ambiguous  in  the  presence  of  implicit  conversions 
and  inconsistente  without. 

.  B37401A:  The  object  declarations  at  lines  126-135 

follow  subprogram  bodies  declared  in  the  same 
declarative  part. 

.  B45116A:  ARRPRIBL1  and  ARRPRIBL2  are  initialized 

with  a  value  of  the  wrong  type  (PRIBOOL.TYPE  instead 
of  ARRPRIBOOL.TYPE)  at  line  41. 


B49006A:  Object  declaratives  at  lines  41  and  50  are 
terminated  incorrectly  with  colons;  "END  CASE;"  is 
missing  from  line  42. 


1 

B74101B:  The  "BEGIN"  at  lina  9  is  mistaken;  it 
cauaaa  tha  daelarativa  part  to  ba  treated  as  a 
aaquanca  of  statements. 

: 

r 

C87B50A:  Tha  call  of  "/■"  at  lina  31  raquiras  a 
"USE"  clausa  for  package  A. 

• 

C92005A:  At  lina  40,  "/-"  for  typa  PACK.BIG_INT  is 
not  visibla  without  a  "USE"  clausa  for  paclcaga  PACK 

• 

C940ACA:  This  tast  assumes  that  allocatad  task  TT1 
will  run  prior  to  tha  sain  program,  and  thus  assign 
SPYNUKB  tha  valua  chackad  for  by  tha  main  program; 
however,  such  an  execution  ozdar  is  not  raquirad  by 
tha  Ada  Standard,  so  tha  tast  is  arronaous. 

a 

CA3005A..D  (4  tasts) t  No  valid  alaboration  ordar 
exists  for  these  tasts. 

END  OP  LIST 

*1 


